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SECTION  I 


INTRODUCTION 

The  proper  method  used  for  estimating  training  costs  is  dictated  by  the 
purpose  for  which  the  cost  estimate  is  being  prepared.  It  is  for  this  reason 
that  the  unqualified  question  of  "How  much  does  it  cost  to  train  a  Navy  man?" 
is  ambiguous.  Those  analysts  charged  with  operational  decisions  affecting 
the  budget  will  focus  on  how  changes  in  the  level  of  training  will  impact  the 
budget.  These  decisions  require  marginal  or  incremental  cost  estimates. 
Individuals  charged  with  the  responsibility  of  planning  for  efficient  train¬ 
ing  systems  over  longer  periods  will  require  average  cost  estimates. 

Many  existing  data  systems  which  track  Navy  training  costs  are  not 
adequate  for  making  incremental  cost  estimates.  Consequently,  managers  often 
find  that  the  kind  of  cost  estimates  required  are  simply  not  available  in  the 
form  necessary  for  management.  Existing  course  cost  data  are  usually  develop¬ 
ed  from  time  series  data  and  the  use  of  arbitrarily  selected  procedures  for 
allocating  joint  costs  among  the  items  being  costed. 

Total  training  costs  are  usually  computed  by  determining  those  resources 
which  are  uniquely  related  to  training,  including  a  depreciation  charge  for 
consumption  of  capital  equipment  and  facilities,  and  then,  by  some  process, 
making  an  allocation  to  training  of  costs  which  are  incurred  in  joint  activi¬ 
ties,  other  than  training.  The  per  capita  cost  to  train  report,  compiled 
within  the  Chief  of  Naval  Education  and  Training  (CNET)  Command,  uses  a 
similar  method  in  computing  the  per  capita  and  course  costing  reports.  Costs 
computed  in  this  manner  may  be  useful  for  responding  to  Congressional  in¬ 
quiries  and  for  long-range  planning,  but  their  use  for  management  and  short- 
range  operational  decisions  is  limited. 

All  management  options  in  the  training  command  deal  with  either  the 
addition  (expansion)  or  reduction  (elimination)  of  selected  training  activi¬ 
ties.  The  execution  of  these  management  options  is  expected  to  occur  within 
a  very  specific  and  well  defined  time  period.  Cost  estimates  which  show  how 
costs  change  when  activities  are  expanded  or  eliminated  within  the  specified 
time  period  are  the  relevant  estimates  for  most  short-run  management  deci¬ 
sions.  Estimates  derived  in  this  way  are  the  marginal  or  incremental  costs. 

STATEMENT  OF  THE  PROBLEM 

At  present  there  are  two  cost  data  collection  systems  within  CNET  and 
neither  are  designed  to  provide  estimates  of  the  incremental  costs  of  train¬ 
ing.  Because  of  the  lack  of  an  acceptable  method  for  determining  incremental 
costs,  CNET  tasked  the  Training  Analysis  and  Evaluation  Group  (TAEG)  to 
develop  an  incremental  costing  model  adaptable  to  the  data  bases  currently 
being  maintained  by  CNET. 

The  first  of  the  existing  data  bases  is  the  Resource  Management  System 
(RMS).  Data  are  collected  and  organized  in  this  data  system  by  administrative 
level,  program  element,  function,  and  subfunction  categories.  This  data 
system  is  designed  and  used  for  budget  execution  and  control.  A  second 
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data  system  is  the  Per  Capita  Cost  to  Train  System.  This  system  provides  a 
capability  for  estimating  the  Per  Capita  Training  Costs  in  each  skill  area/or 
course.  Costs  computed  from  the  per  capita  system  are  the  long-run  average 
training  costs.  Neither  of  the  existing  data  systems  was  designed  to  dis¬ 
tinguish  between  the  fixed  and  variable  cost  of  training  and,  hence,  do  not 
have  the  capability  to  provide  estimates  of  the  incremental  training  costs  per 
course. 

Each  year  during  the  POM  and  budget  development  cycle,  CNET  is  often 
required  to  provide  estimates  of  the  cost  to  train  for  each  of  several  hundred 
courses.  When  the  OPNAV  sponsors  are  forced  to  make  adjustments  in  their 
training  budgets  (and  these  adjustments  are  usually  decrements)  they  must 
determine  the  amount  of  cost  reductions  which  can  be  realized  by  the  disestab¬ 
lishment  or  reduction  of  training  in  each  course  selected  as  a  candidate  for 
reduction.  As  the  OPNAV  sponsors  select  courses  for  reduction,  CNET  must 
respond  with  estimates  of  the  potential  savings  which  would  result  from  these 
reductions. 

The  per  capita  cost  to  train  model  has  been  used  with  limited  success  but 
the  average  course  costs  computed  with  this  model  represent  fully  allocated 
fixed  and  variable  costs.  Because  of  the  discrete  nature  of  many  training 
resources  and  the  fact  that  many  training  resources  are  jointly  involved  with 
numerous  courses,  a  flat  projection  of  the  fully  allocated  average  total  costs 
of  training  for  each  course  cannot  be  used  to  make  reliable  estimates  of  the 
incremental  costs.  Usually,  because  of  the  fixed  nature  of  resources,  a  flat 
projection  of  average  total  cost  (ATC)  will  tend  to  overstate  the  short-run 
savings  which  can  be  realized  for  a  given  reduction  in  the  training  load. 

PURPOSE  OF  STUDY 

The  objective  of  this  study  was  to  develop  a  model  for  estimating  the 
marginal  cost  for  each  of  the  courses  or  course  groups  presently  in  the  CNET 
Per  Capita  Cost  to  Train  Data  System.  Specifically,  the  model  provides  the 
capability  to: 

1.  determine  the  changes  in  costs  which  occur  as  the  student  average 
on-board  changes 

2.  calculate  cost  changes  which  occur  at  the  course,  division,  depart¬ 
ment  and  activity  level 

3.  consider  the  time  variable  as  it  relates  to  the  ratio  of  fixed  to 
variable  costs 

4.  allow  for  direct  cost  inputs  for  known  or  administratively  dictated 
cost  changes 

5.  estimate  cost  changes  resulting  from  incrementing  or  decrementing  the 
training  load  for  courses,  divisions,  departments,  and  activities 

6.  consider  training  capacities  when  estimating  cost  changes  which 
occur  as  a  result  of  changing  the  training  load 
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7.  be  programmed  on  a  minicomputer  and  integrated  with  the  existing 
Per  Capita  Cost  Data  System  so  that  it  can  be  used  to  provide  timely  esti¬ 
mates  of  cost  changes  which  result  from  postulated  changes  in  course  training 
levels. 
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SECTION  II 
APPROACH 

THE  MODEL 

The  model  developed  is  an  algorithm  for  determining  the  change  in  total 
costs  resulting  from  a  change  in  the  work  units  (one  man  month  of  training) 
for  a  given  course(s).  The  model  is  based  upon  the  following  relationships: 


TCi  =  TFCi  +  TVCi  (1) 
ATC.  =  APCi  +  AVC.  (2) 
AFCi  =  TFC./WU.  (3) 
AVCi  =  TVCi/WUi  (4) 

Where: 


TC  =  Total  Costs 

TFC  =  Total  Fixed  Costs 

TVC  *  Total  Variable  Costs 

ATC  =  Average  Total  Costs 

AFC  =  Average  Fixed  Costs 

AVC  =  Average  Variable  Costs 

WU  =  Work  Units  (one  man  month  of  training) 

i  =  initial  (or  current)  level  of  training 

The  total  fixed  costs  in  period  i  are  determined  by  the  following 
functional  relationship: 

TFCj  =  f  (time,  resource  characteristics).  (5) 

Since  fixed  costs  are  by  definition  fixed  for  all  output  levels,  the 
fixed  costs  at  the  revised  output  levels  (r)  can  be  given  by: 

TFCr  =  TFC.  (6) 

and  the  average  fixed  costs  at  the  revised  output  levels  can  be  computed  as 

AFCr  =  TFCr/WUr.  (7) 

If  all  resources  which  are  defined  as  variable  can  be  expanded  propor¬ 
tionally  as  output  is  increased  then  one  can  conclude  that  the  ratio 


TVC.  TVCr 

f  wuT  =  "wUJT 

will  remain  constant  and  therefore: 

AVCr  =  AVCr 


(8) 

(9) 
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In  addition,  the  possibility  exists  that  in  some  training  units  the 
proportionality  assumption  stated  for  equation  (8)  is  invalid  and  a  scale 
adjustment  in  AVCr  is  necessary.  Let 

AVC'  =  f  (AVCr,  (Scale))  (10) 

represent  the  average  variable  cost  at  the  revised  level  of  output  adjusted 
for  scale.  The  average  total  cost  at  the  revised  output  level  is  then 
equal  to 

ATC  =  AFC  +  AVc'  (11) 

r  r  r 

However,  we  know  that  the  estimate  of  ATC  computed  from  data  derived 
from  the  current  training  system  may  be  biasedrif  that  system  is  not  currently 
operating  at  design  capacity.  To  remove  that  bias,  the  ATC  estimates  must  be 
adjusted  for  these  deviations.  Therefore: 

/ 

ATC  =  f  (ATC  ,  (Capacity  -  Current  Operating 
r  r  Level))  (12) 


The  change  in  total  costs  can  now  be  computed  from  the  following  function 

TC  =  ATC*  x  (WUr  -  WU.)  (13) 

A  summary  of  the  approach  used  in  the  application  of  this  model  is  pre¬ 
sented  next: 

•  The  total  costs  (TC)  which  exist  at  current  levels  are  sep¬ 
arated  into  fixed  and  variable  costs. 

•  The  average  fixed  costs  (AFC)  at  specified  revised  output 
levels  are  computed  by  dividing  the  total  fixed  costs  by  the 
revised  output  level. 

•  The  average  variable  costs  (AVC)  at  the  revised  output  levels 
are  computed  by  dividing  the  total  variable  costs  by  the 
present  output  levels. 

•  If  the  total  variable  costs  (TVC)  change  in  direct  proportion 
to  output  levels  then  it  can  be  assumed  that  the  average 
variable  costs  would  remain  unchanged  as  output  is  increased. 
The  AVC  at  the  revised  output  level  is  then  set  equal  to  the 
AVC  at  the  initial  level.  This  proportionality  assumption  is 
later  relaxed  as  adjustments  are  made  in  this  initial  com¬ 
putation. 

•  The  average  total  costs  (ATC)  for  the  revised  output  level 
are  computed  by  summing  the  computed  AFC  and  AVC.  A  typical 
set  of  average  cost  curves  is  illustrated  in  figure  1. 
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Capacity  adjustments  are  made  in  the  ATC  for  all  resources  and 
functions  which  are  not  operating  at  design  capacity  as  deter¬ 
mined  from  current  Navy  Integrated  Training  Resources  and 
Administrative  System  (NITRAS)  data. 

The  model  provides  provisions  for  scale  adjustments  in  the  ATC  function 
computed  above.  The  latter  adjustments  are  based  upon  the  assumption  that  the 
long-run  ATC  for  large  training  organizations  may  be  lower  than  for  smaller 
and  potentially  less  efficient  training  organizations.  This  assumption  must 
be  statistically  tested  for  each  data  element  and,  when  found  significant,  a 
set  of  linear  regression  equations  must  be  developed  to  estimate  the  scale 
effect.  The  model  also  provides  provisions  for  applying  an  exogenous  deter¬ 
mined  inflation  factor  to  the  estimated  revised  costs.  An  option  is  also 
provided  to  override  any  cost  estimate  developed  by  the  model.  The  latter 
option  would  normally  be  exercised  when  it  is  known,  by  administrative  edict, 
that  changes  in  resource  use  are  to  be  determined  outside  the  model.  These 
known  and  given  costs  can  be  used  to  replace  the  values  estimated  by  the 
model.  The  RMS  Per  Capita  Cost  Data  base  and  NITRAS  data  base  were  used  in 
the  development  of  the  model.  Productivity  measures  of  the  training  systems 
were  in  terms  of  the  amount  of  training  provided  as  measured  by  work  units.  A 
work  unit  is  defined  as  one  man  month  of  training. 

The  remaining  sections  in  this  part  of  the  report  will  discuss  in  detail 
the  data  base  and  procedures  used  in  developing  the  incremental  cost  esti¬ 
mates. 

DATA  BASE 

The  model  is  designed  to  utilize  the  data  collected  in  the  Per  Capita 
Cost  to  Train  Data  System  which  is  currently  maintained  by  the  Resource 
Analysis  Division  of  CNET.  This  data  system  was  designed  and  is  maintained 
for  the  purpose  of  collecting  activity  training  cost  data  and  for  preparation 
of  the  per  capita  cost  of  training  report  and  the  training  course  cost  report. 
This  incremental  costing  model  is  uniquely  designed  to  interface  with  and  to 
be  made  an  integral  part  of  that  data  system. 

The  per  capita  cost  data  are  collected  and  updated  annually  in  accordance 
with  instructions  promulgated  by  the  CNET.  Costs  are  collected  at  the  course 
level  and  three  higher  administrative  levels.  Costs  assigned  to  each  admin¬ 
istrative  level  are  not  double  counted  and  are,  therefore,  mutually  exclusive 
among  the  administrative  levels.  Costs  for  all  administrative  levels  below 
any  one  in  question  can  be  added  to  obtain  the  total  cost  for  the  level  in 
question  (i.e. ,  costs  can  be  added  at  the  course  level  to  obtain  division 
costs,  division  costs  can  be  added  to  obtain  department  costs,  and  department 
costs  can  be  added  to  obtain  activity  costs). 

The  lowest  level  of  costing  is  at  the  course  level.  All  costs  which  can 
be  uniquely  related  to  that  course  are  assigned  directly  to  that  course. 

If  the  resources,  from  which  the  costs  arise,  serve  more  than  one  course,  then 
the  costs  are  assigned  to  the  next  higher  administrative  level  (which  is  the 
division).  Thus,  there  is  no  allocation  of  the  joint  administrative  costs  to 
the  courses  they  serve.  Similarly,  the  costs  which  are  uniquely  related  to 
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the  division  are  assigned  to  the  division  but  if  resources  are  serving  more 
than  one  division  then  the  cost  of  these  resources  are  assigned  to  the  de¬ 
partment  level.  Again,  there  is  no  allocation  of  the  joint  or  overhead  costs. 

The  activity  is  the  highest  administrative  level  for  which  costs  are 
aggregated.  Costs  are  identified  in  the  data  base  using  a  five  alpha  cost 
account  structure.  The  first  digit  is  the  numeral  5.  The  second  position  is 
an  alpha  character  which  identifies  a  department.  The  third  position  is  an 
alpha  character  which  identifies  the  division  and  the  final  or  fourth  position 
identifies  a  course  and/or  course  group  (figure  2).  Therefore,  the  five- 
alpha  cost  account  structure  uniquely  identifies  each  ef  four  data  sets  in  the 
data  base.  The  four  sets  are:  (1)  the  direct  activity  costs,  (2)  the  direct 
department  costs,  (3)  the  direct  division  costs,  and  (4)  the  direct  course 
costs.  Each  data  set  is  composed  of  elements  which  identify  the  resource 
class  and  function  performed.  There  are  seven  resource  classes  and  18  func¬ 
tions  in  each  data  set.  The  matrix  for  each  data  set  is  shown  in  table  1. 
Forty-one  of  the  possible  126  cells  in  this  matrix  may  have  nonzero  values. 
Those  cells  which  may  contain  positive  entries  are  numbered  and  identified  in 
the  appropriate  cell  of  table  1.  The  data  in  each  of  the  four  data  sets  are 
mutually  exclusive  and  therefore  additive. 

Total  activity  costs  including  all  organizational  units  and  courses  under 
the  activity  are  given  by: 


jj 

kk 

nn 

tt 

1 

Aii  +  2 

Pik  +  1 

1K  n=l 

D,  +  2 

1n  t=l 

j=l 

1J  k=l 

Where: 


A..  =  The  ith  direct  cost  element  of  activity  j 

*  J 

j  =  1»  jji  where  jj  =  number  of  activities 
i  =  1 ,2,3, ...41 

Pik  =  The  ith  direct  cost  element  for  department  k 
k  =  1,  kk;  where  kk  =  number  of  departments 
i  =  1,2,3,  . . .41 

D.  =  The  ith  direct  cost  element  for  division  n 
m 

n  =  1,  nn;  where  nn  equals  the  number  of  divisions 
i  =  1 ,2,3, ...41 
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5  ALPHA  COST  ACCOUNT  STRUCTURE 
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Figure  2.  Course  Cost  Account  Structure 
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TABLE  1.  MATRIX  OF  DATA  ELEMENTS  IN  EACH  DATA  SET 
FOR  CNET  COST  DATA  BASE* 


FUNCTIONS 

M.HR 

RESOURCE  CLASS 

C.HR  M.LB  C.LB 

SUPP 

CONT 

MI  SC 

DIRECT 

1 

2  3  4 

5 

6 

7 

AC-FC-SP 

8 

9  10  11 

12 

13 

14 

HOST-ACT 

15 

16 

OT-ACT 

17 

18 

TR-EQ-MT 

19 

MJ-PJT 

20 

ADP 

21 

22 

CNETS 

23 

24 

FN-CMD 

25  26 

27 

28 

29 

STF-PCS 

30 

STF-BMD 

31 

32 

STF-F.H. 

33 

EQ-DEP 

34 

BLD-DEP 

35 

STU-BMD 

36 

37 

STU-F.H. 

38 

STU-TVL 

39 

40 

STU-SAL 

41 

*See  appendix  C  for  definition  of  labels.  The  labels  used  in  the  table  are 
consistent  with  those  used  in  the  computer  model  discussed  subsequently  in 
the  report. 
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C.t  =  The  ith  direct  cost  element  for  course  t 

t  =  1,  tt;  where  tt  equals  the  number  of  courses 
i  =  1 ,2,3, . . .41 . 


There  are  approximately  4,000  Navy  courses  included  in  the  cost  data 
base.  The  costs  are  collected  on  an  individual  course  basis  for  approximately 
1,500  of  the  4,000  courses.  The  remaining  courses  are  grouped  on  the  basis  of 
varying  criteria  which  include  the  location  where  the  courses  are  taught,  the 
administrative  control  and  organization  over  the  courses,  characteristics  of 
the  courses,  and  the  degree  to  which  the  support  for  the  course  is  provided  by 
resources  serving  other  courses  or  functions.  The  costs  for  courses  are 
usually  grouped  when  there  is  no  clear  and  unambiguous  method  for  separating 
the  joint  costs. 

Courses  which  are  grouped  in  the  Per  Capita  Cost  to  Train  System  required 
a  special  procedure  in  the  model  for  estimating  the  direct  course  costs.  For 
those  courses,  the  costs  were  estimated  by  taking  a  straight  proration  of  the 
cost  elements  for  the  group  based  on  the  number  of  work  units.  The  model, 
therefore,  requires  the  user  to  input  the  current  work  units  for  each  grouped 
course,  the  course  length,  and  the  number  of  graduates  which  correspond  to  the 
cost  data  base.  It  was  assumed  that  the  attrition  rate  for  the  course  was  the 
same  as  for  the  course  group  and  that  the  average  weeks  attended  per  attrite 
was  the  same  for  the  course  as  for  the  group  which  included  the  course.  Using 
these  data,  the  total  attrition  weeks  and  estimated  enrollment  were  computed 
for  each  of  the  grouped  courses. 

Data  drawn  from  the  NITRAS  include  equipment,  facilities,  and  personnel 
training  capacities;  class  convenings;  course  lengths;  and  other  statistical 
data  on  course  and  class  characteristics.  In  summary,  the  cost  data  from  the 
Per  Capita  Cost  to  Train  Data  System  and  the  course  data  from  NITRAS  consti¬ 
tute  the  data  base  used  for  the  incremental  costing  model  being  developed  in 
this  modeling  effort. 

PRODUCTIVITY  MEASURES 

The  basic  measure  of  productivity  used  in  the  model  is  the  "work  unit" 
which  is  defined  as  one  man  month  of  training.  The  work  units  of  training  are 
determined  by  tabulating  the  daily  average-on-board  for  each  training  day  in 
the  month  and  dividing  this  sum  by  the  number  of  work  days  in  the  month.  The 
costs  are  compiled  for  each  of  the  four  organizational  levels;  however,  the 
work  units  are  compiled  only  at  the  course  level.  The  division  work  units  are 
obtained  by  adding  the  work  units  for  all  courses  in  the  division;  the  de¬ 
partment  work  units  are  obtained  by  adding  all  courses  (or  divisions)  in  the 
department;  and,  finally,  the  activity  work  units  are  obtained  by  summing  the 
work  units  for  all  courses  (or  departments}  in  the  activity.  An  illustration 
of  the  distribution  of  work  units  among  the  courses,  divisions,  departments, 
and  for  the  activity  is  shown  in  figure  3. 

This  model  uses  the  number  of  training  months  (or  work  units)  as  the 
measure  of  productivity.  The  model  does  not  attempt  to  measure,  or  even 
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address,  the  variations  in  the  effectiveness  of  training  which  might  occur  as 
the  level  of  resource  commitment  to  each  course  is  varied  in  response  to 
budget  adjustments.  This  implied  assumption  of  constant  training  effective¬ 
ness  may  be  tenable  for  relatively  minor  long-run  changes  in  resources  devoted 
to  the  course  but  less  tenable  when  those  adjustments  are  large  and  must  be 
made  within  a  relatively  short  time  span.  For  example,  if  managers  of  a 
course  are  forced  to  accommodate  a  large  influx  of  students  then  those  managers 
may  choose  to  both  Increase  the  class  size  and  meeting  frequency.  This  will 
undoubtedly  require  Instructors  to  work  longer  hours  and  decrease  the  in¬ 
structor-  to-  student  ratio.  One  would  expect  the  efficiency  and  effectiveness 
to  drop.  Responsibility  for  evaluating  these  and  similar  qualitative  changes 
in  training  effectiveness  is  left  to  the  model  user. 

The  changes  postulated  for  each  course  are  measured  in  terms  of  changes 
in  work  units  and  cost  changes  are  then  estimated  for  each  work  unit  change. 
Alternatively,  the  user  can  choose  to  input  into  the  model  the  course  en¬ 
rollments  or  the  number  of  graduates  for  the  course.  When  enrollments  (or 
graduates)  are  input,  the  model  will  first  compute  the  revised  work  units  and 
use  the  computed  revised  work  units  as  the  basis  for  estimating  the  cost 
changes. 

The  total  training  days  are  computed  by  summing  the  days  required  for 
each  graduate,  the  days  lost  for  attrition,  and  the  days  required  for  students 
setback.  The  following  function  is  used  for  computing  the  training  days: 

Training  Days  =  7  (X?X4  +  .SX^X^  +  X^XgXg) 

Work  Units  =  Training  Days  i  30 


Where: 


X-j  =  Enrollments  (Number) 

=  Graduates  (Number) 

X^  =  Attrition  Rate  (Percentage  of  Enrollments) 
X4  =  Course  Length  (Weeks) 

Xg  =  Setback  Rate  (Percentage  of  Graduates) 

Xg  =  Proportion  of  Course  Repeated 
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FIXED  VS.  VARIABLE  COSTS 

The  fixed  costs  are  defined  as  those  costs  which  cannot  be  changed  within 
the  period  of  time  allowed  for  implementing  the  management  decision.  There¬ 
fore,  when  the  manager  specifies  the  time  period  within  which  any  postulated 
management  option  is  to  be  exercised,  the  ratio  of  fixed  to  variable  costs  is 
exogenously  determined.  Although  resource  characteristics  determine  the 
manageability  of  resources,  it  is  incorrect  to  divide  resources  into  fixed  and 
variable  classes  on  the  basis  of  resource  characteristics  alone.  Any  division 
must  be  responsive  to  the  time  period  allowed  to  implement  the  change. 

The  primary  objective  of  this  model  is  to  determine  the  incremental  (or 
decremental)  costs  associated  with  changes  in  work  units.  To  meet  this 
objective,  it  is  necessary  to  determine  the  fixed  and  variable  resources  for 
each  postulated  change  in  work  units.  Since  it  is  a  prerogative  of  management 
and  planners  to  choose  alternative  planning  periods,  the  procedure  developed 
for  separating  the  fixed  and  variable  costs  is  responsive  to  the  length  of  the 
planning  period. 

It  was  assumed  that  the  resources  for  each  data  element  (within  each  data 
set)  were  relatively  homogenous  and  equally  manageable  within  a  given  time 
period.  A  typical  function  used  to  determine  the  proportion  of  fixed  and 
variable  costs  for  each  data  element  is  illustrated  in  figure  4.  Point  "A" 
represents  the  number  of  months  in  which  the  resources  of  the  given  data 
element  are  totally  fixed.  Point  "B"  represents  the  number  of  months  in  which 
the  resources  of  the  given  data  element  are  totally  variable.  For  any  plan¬ 
ning  period  shorter  than  the  months  indicated  by  point  "A,"  all  resources  will 
be  fixed;  for  any  period  which  exceeds  the  months  indicated  by  point  "B"  all 
resources  will  be  variable.  The  proportion  of  costs  which  are  fixed  between 
points  "A"  and  "B"  is  determined  from  the  linear  relationship  as  illustrated 
in  figure  4. 

The  model  requires  the  user  to  input,  for  each  data  element,  the  months 
corresponding  to  points  "A"  and  "B."  Using  these  data  points,  a  fixed- 
variable  distribution  function  similar  to  the  one  illustrated  in  figure  4  is 
developed  for  each  data  element  and  used  as  the  basis  for  separating  the  fixed 
and  variable  costs. 

PARTIAL  OR  WHOLE  BILLETS 

The  model  provides  the  option  for  the  user  to  select  computational 
routines  which  compute  the  total  labor  costs  based  upon  either  partial  or 
whole  billets.  It  was  assumed  that  for  selected  situations  it  might  be  more 
appropriate  to  increase  or  decrease  military  or  civilian  labor  in  integer 
billet  units.  When  the  partial  billet  option  is  selected,  the  total  labor 
costs  are  simply  computed  by  multiplying  the  adjusted  ATC  for  each  cell  by  the 
appropriate  level  of  work  units.  However,  when  the  whole  billet  option  is 
selected  then  the  estimated  total  cost  at  the  revised  level  of  output  is 
divided  by  the  average  pay  rate  and  rounded  to  the  nearest  whole  number  of 
billets.  An  estimate  of  revised  total  costs  is  then  recomputed  by  multiplying 
the  integer  number  of  the  revised  billets  by  the  average  pay  rates. 

The  average  annual  pay  rate  for  both  civilian  and  military  labor  can  be 
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input  as  data  into  the  model,  or  alternatively,  a  pay  rate  can  be  computed 
from  the  existing  data  base.  When  using  the  existing  data  base,  the  total 
labor  costs  are  divided  by  hours  to  obtain  an  hourly  rate.  The  annual  rate 
is  then  computed  on  the  basis  of  2,080  hours  per  year. 

ADJUSTMENTS  IN  AVERAGE  COSTS 

CAPACITY  ADJUSTMENTS.  The  average  total  costs  which  are  computed  at  present 
operational  levels  may  be  biased,  depending  on  whether  or  not  the  current 
training  load  is  equal  to  the  training  capacity  of  resources  presently  avail¬ 
able.  It  is  assumed  that  for  those  training  systems  jwhich  are  operating  at 
less  than  the  design  or  manning  capacity,  the  training  load  could  be  in¬ 
creased  up  to  capacity  without  any  increase  in  total  costs.  Consequently,  as 
the  training  load  is  increased  up  to  the  capacity  levels,  the  ATC  will  decrease 
for  those  data  elements  with  surplus  capacity. 

It  was  further  assumed  that  for  those  training  systems  in  which  the 
present  work  load  exceeds  the  design  capacity  that  the  total  costs  will  not 
change  as  the  work  load  is  reduced  to  design  capacity.  The  adjustments  which 
take  place  will  be  a  reduction  in  the  intensity  of  use  of  existing  resources. 

If  the  total  costs  remain  unchanged  as  work  units  are  decreased  toward  ca¬ 
pacity  levels,  then  the  ATC  will  increase. 

Personnel,  equipment,  and  space  capacity  measures  are  collected  for  each 
course  reported  in  NITRAS.  The  personnel  capacity  variable  states  the  maximum 
"number  of  students  that  may  be  trained  per  class  based  on  the  number  of 
instructors  and  non-instructor  billets  contained  in  the  manpower  authorization 
and  used  locally  to  support  the  course.  The  number  assumes  that  unlimited 
space  and  equipment  are  available."  The  equipment  capacity  is  "the  number 
of  students  that  may  be  trained  per  class  based  upon  the  amount  of  equipment 
available  per  scheduled  class  period.  The  number  entered  assumed  that  un¬ 
limited  personnel  and  space  are  available."  The  space  capacity  constraint 
is  "the  number  of  students  that  may  be  trained  per  class  based  on  the  avail¬ 
ability  of  classroom  space  for  a  specific  class.  Classroom/ training  space 
includes  laboratory,  shop,  hangar,  or  any  other  space  configured  for  training 
purposes.  The  number  entered  assumes  that  unlimited  personnel  and  equipment 
are  available."-3  By  using  the  class  length,  number  of  convenings  per  year, 
and  class  capacity,  the  maximum  number  of  annual  work  units  was  computed  for 
each  course. 


Navy  Integrated  Training  Resources  and  Administrative  System  (NITRAS) 
Reports  Manual,  CNET  PI 51 0/2.  26  July  1976,  Chief  of  Naval  Education  and 

Training,  Pensacola,  FL. 

2  Ibid. 

3  Ibid. 
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The  direct  military  and  civilian  labor  costs  incurred  at  the  course 
levels  are  the  only  data  elements  for  which  the  personnel  constraints  are 
applicable.  The  data  element  identified  as  miscellaneous  costs  attributed  to 
equipment  depreciation  (only  at  course  level)  is  the  only  data  element  for 
which  the  equipment  capacity  constraint  is  relevant.  Since  the  equipment 
costs  represent  only  the  depreciation  costs,  any  equipment  capacity  adjust¬ 
ments  will  be  of  a  long-run  nature  and  it  cannot  be  inferred  that  the  re¬ 
sultant  estimate  will  be  a  realistic  estimate  of  the  change  in  current  costs 
which  might  be  incurred  by  adjusting  the  training  loads.  When  large  equipment 
purchases  or  reductions  are  necessary,  it  is  more  accurate  in  the  short  run 
to  make  the  cost  estimates  outside  the  model  and  provide  these  estimates  as 
direct  inputs  to  the  model  solution.  A  similar  caveat  is  applicable  for 
facilities  depreciation.  Construction  costs,  rather  than  depreciation  rates, 
would  provide  the  proper  estimates  for  flow  of  funds  budgeting. 

The  capacity  adjustment  is  not  made  on  courses  contained  within  a  group 
cost  code.  The  adjustment  on  group  courses  was  not  possible  because  of 
deficiencies  in  the  data  base;  namely,  there  is  no  reliable  way  to  determine 
the  current  operating  capacity  and/or  costs  for  one  individual  course  when 
the  costs  and  other  data  for  that  course  are  included  in  a  course  group. 

When  the  reduction  in  training  loads  is  projected  to  drop  to  relatively 
low  levels  and  the  time  period  for  implementing  these  reductions  is  relative¬ 
ly  short,  then  the  manageability  for  most  resources  may  be  so  restricted  that 
those  resources  already  in  place  (i.e.,  the  fixed  resources)  may  be  more  than 
necessary  to  meet  the  reduced  training  loads.  The  maximum  number  of  work 
units  which  could  be  accommodated  with  the  fixed  resources  was  computed  by 
dividing  the  total  fixed  costs  by  the  estimate  of  the  long-run  average  total 
costs.  If  the  projected  level  of  work  units  was  less  than  this  maximum 
computed  number  then  the  average  total  cost  was  recomputed  by  dividing  the 
fixed  costs  by  the  projected  level  of  work  units.  This  would  result  in 
higher  short-run  average  total  costs  because  of  the  inflexibility  of  the 
resource  base  in  the  very  short  run. 

SCALE  ADJUSTMENTS.  The  average  total  costs  for  courses  with  large  through¬ 
puts  may  be  lower  than  courses  with  relatively  small  throughputs.  Certain 
costs  remain  relatively  constant  over  wide  ranges  of  output.  In  addition, 
larger  training  systems  have  greater  opportunity  to  utilize  more  sophisticated 
training  technology  and  this  may  have  a  tendency  to  reduce  the  average  train¬ 
ing  costs.  The  model  does  not  assume  any  scale  economies  or  diseconomies  but 
does  provide  the  user  with  the  means  to  make  the  scale  adjustments  if  it  is 
determined  that  such  adjustments  are  significant.  The  model  is  currently 
programmed  to  use  the  parameters  from  a  multiple  regression  prediction  model 
with  a  maximum  of  two  independent  variables.  The  structure  of  the  prediction 
equation  can  be  easily  changed  in  the  model. 

When  it  is  determined  (from  analysis  exogenous  to  the  model)  that 
significant  scale  effects  are  present  for  any  particular  set  of  data  elements, 
then  the  user  must  determine  the  structural  form  of  the  equation  which  can 
be  used  to  predict  these  scale  effects.  If  the  prediction  equation  can  be 
represented  with  a  linear  multiple  regression  function  with  a  maximum  of 
two  independent  variables,  then  the  user  can  simply  use  the  costing  model 
by  inputting  the  coefficients  of  the  linear  regression  model.  If,  however. 
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the  prediction  function  is  not  of  a  linear  form,  then  the  user  must  modify  the 
model  by  putting  in  the  appropriate  equations  and  coefficients. 

Scale  effects  can  only  be  captured  in  the  long  run  as  the  training  unit 
has  time  to  adjust  its  resource  base  and  as  resources  become  variable  or 
manageable.  Consequently,  the  scale  adjustments  are  made  only  on  the  average 
variable  cost  component  of  average  total  cost.  The  procedure  for  making  the 
scale  adjustments  is  as  follows.  Using  the  prediction  equation,  an  estimate 
of  the  total  cost  is  made  for  both  the  present  work  units  and  projected  work 
units.  The  change  between  the  two  estimates  is  computed  by  subtracting  the 
revised  total  cost  estimate  from  the  current  total  cost  estimate.  The  per¬ 
centage  change  between  the  two  estimates  is  computed  using  an  average  of  the 
two  estimates  as  the  base.  This  percentage,  plus  one,  is  multiplied  by  the 
average  variable  costs  of  the  current  work  units  to  obtain  an  estimate  of  the 
change  in  the  average  variable  cost. 

The  scale  adjustment  procedure  can  be  illustrated  using  figure  5. 

Assume  that  the  prediction  equation  Y  =  A+BX  has  been  derived  by  computing  a 
simple  regression  function  of  work  units  on  average  costs  from  historical 
data.  The  points  "A,"  "B,"  "C,"  and  "D"  represent  the  AVC  for  work  units 
indicated  on  the  horizontal  axis.  If  "A"  represents  the  current  AVC,  the 
requirement  is  to  determine  an  estimate  of  the  AVC  for  point  "B."  The  pre¬ 
diction  equation  is  used  to  make  an  estimate  of  the  AVC  for  the  current  work 
units  (10)  and  this  estimate  is  represented  by  point  "C."  Similarly,  an 
estimate  of  the  AVC  for  the  revised  work  units  (20)  is  computed  and  this 
estimate  is  illustrated  by  point  ''D.”  The  proportional  change  in  AVC  between 
"C"  and  "D"  is  P  =  (C-D)/( (C+D)/2) .  It  was  assumed  that  current  AVC  (illus¬ 
trated  by  point  "A")  would  change  in  the  same  proportion  as  indicated  by 
the  prediction  equation.  Therefore,  the  estimated  AVC  at  point  "B"  was 
estimated  as  the  AVC  at  point  "A"  times  the  percentage  change  (P). 

The  model  solution  is  constrained  to  insure  that  total  costs  and  work 
units  move  in  the  same  direction.  It  is  conceptually  untenable  that  when  work 
units  decrease  total  costs  should  rise  and  vice  versa.  In  order  to  circumvent 
this  potential  difficulty,  an  elasticity  coefficient  was  computed  by  dividing 
the  percentage  change  in  work  units  by  the  percentage  change  in  average  total 
costs  as  estimated  by  the  prediction  equation.  When  the  result  is  found  to  be 
elastic  (or  has  unitary  elasticity),  the  computation  of  the  revised  AVC  is 
based  on  the  assumption  that  the  percentage  change  in  the  actual  AVC  is  equal 
to  the  percentage  change  in  the  AVC  as  estimated  from  the  prediction  equation. 
The  revised  AVC  is  then  computed  by  multiplying  the  present  AVC  by  one  plus 
the  percentage  change  in  AVC  as  determined  from  the  prediction  equation. 

When  the  absolute  value  of  the  elasticity  coefficient  is  less  than  one, 
then  total  cost  would  be  inversely  related  to  work  units.  Such  a  result  is 
untenable,  and  the  inverse  realtionship  results  from  faulty  data  or  an  in¬ 
accurate  structure  of  the  prediction  equation.  When  this  contingency  occurs, 
the  scale  adjustment  is  omitted  and  the  user  is  warned  of  the  decision  not  to 
adjust  for  scale.  A  more  detailed  description  of  the  computation  of  the 
elasticity  coefficient  is  presented  in  appendix  A. 
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AVERAGE 

COSTS 


10  20  30 


WORK  UNITS 


Figure  5.  Scale  Adjustment  of  Average  Costs 
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INFLATION  ADJUSTMENTS.  The  incremental  (or  decremental )  cost  estimates 
derived  from  the  model  can  be  adjusted  for  inflationary  increases  over  the 
planning  period.  Two  inflationary  rates,  one  for  MPN  funds  and  one  for  O&MN 
funds,  are  used  in  inflating  the  data  for  the  base  year  estimates.  The  model 
does  not  assume  an  inflation  rate  and  when  inflationary  adjustments  are 
desired,  the  option  must  be  selected  and  an  inflation  rate  provided.  The 
inflationary  adjustment  factor  is  compounded  monthly  over  the  planning  period. 

The  existing  data  base  can  be  updated  to  any  month  or  year  the  user 
wishes  to  consider  as  the  base  period  for  analysis.  The  existing  data  base  is 
assumed  to  be  current  in  the  ninth  month  of  the  fiscalvyear  to  which  it 
applies.  The  planning  period  extends  the  analysis  from  the  base  year  selected 
by  the  user.  For  example,  assume  the  existing  data  base  is  for  1978  and  the 
user  wishes  to  implement  a  management  option  beginning  in  the  year  1980. 

First,  the  existing  data  base  would  be  updated  to  1980  as  the  base  year  for 
analysis  then,  given  a  planning  period  of  12  months,  one  will  obtain  an 
estimate  of  the  change  in  total  costs  for  the  following  12  month  period.  If 
the  planning  period  is  extended  to  24  months,  then  the  change  in  total  annual 
costs  for  the  second  year  will  be  computed. 

The  user  should  note  that  because  of  the  inflation  adjustment  of  the 
incremental  costs,  it  is  possible  the  absolute  costs  could  actually  increase 
from  the  last  period  with  a  reduction  in  the  work  units  of  any  given  course. 
This  would  most  likely  occur  when  the  inflation  adjustment  was  large  and  the 
reduction  in  work  units  relatively  minor. 

A  complete  documentation  of  the  computer  model  is  included  in  appendix  B. 
This  documentation  includes  a  system  flow  chart,  file  specification  formats, 
program  flow  charts,  variable  definitions,  a  program  listing,  and  a  sample  of 
the  output  for  a  hypothetical  problem. 
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SECTION  III 


MODEL  OPTIONS 

The  following  options  are  available  in  the  model: 

PLANNING  PERIOD 

The  user  has  the  option  of  specifying  the  time  period  over  which  manage¬ 
ment  changes  are  to  be  implemented.  Management  flexibility  is  determined  by 
the  length  of  the  planning  period.  The  shorter  the  planning  period,  the  less 
flexibility  and  the  greater  the  proportion  of  resources  which  must  be  con¬ 
sidered  fixed.  The  percentage  of  total  resources  which  are  fixed  is  deter¬ 
mined  by  the  planning  period  and  a  functional  relationship  is  constructed  for 
each  data  element.  The  planning  period  is  specified  in  months  and  any  period 
of  time  is  acceptable  as  model  inputs. 

BASE  YEAR 

The  user  can  specify  any  year  as  the  base  year  for  analysis.  If  a  year 
other  than  the  year  of  the  data  base  is  specified,  then  the  data  base  will  be 
inflated  to  the  base  year  selected  for  analysis.  This  option  allows  the  user 
to  calculate  cost  changes  which  will  result  from  management  decisions  sched¬ 
uled  to  be  implemented  at  some  future  year  in  the  FYDP.  It  is  a  measure  of 
how  costs  are  expected  to  change  following  the  implementation  of  the  manage¬ 
ment  option.  The  planning  period  begins  from  the  base  year  selected  for 
analysis. 

TRAINING  REQUIREMENT  SPECIFICATIONS 

The  model  is  constructed  to  receive  one  of  three  measures  of  productivity. 
The  first  measure  of  training  requirements  can  be  specified  in  terms  of  work 
units  (defined  as  one  man  month  of  training).  When  work  units  are  used  as  the 
productivity  measures,  then  the  changes  in  training  loads  can  arise  from 
changes  in  any  one  of  a  number  of  contributing  variables.  The  number  of 
graduates,  course  length,  attrition  rates,  setback  rates,  and  setback  pro¬ 
portions  are  all  variables  determining  the  work  units.  Thus,  a  reduction  in 
work  units  does  not  necessarily  mean  that  the  number  of  graduates  must  be 
reduced.  Although  the  reduction  of  graduates  is  the  most  significant  factor 
in  reducing  work  units,  a  reduction  in  attrition  rates,  setback  rates,  course 
length,  and  setback  proportion  will  also  contribute  to  a  reduction  in  work 
units.  If  work  units  are  specified,  then  the  model  computes  the  number  of 
graduates  and  enrollments  consistent  with  the  existing  or  specified  attrition 
rates  and  setback  rates. 

The  second  measure  of  training  requirements  allows  the  user  to  specify 
the  annual  number  of  graduates  which  must  be  trained.  When  graduates  are 
specified,  the  model  computes  the  number  of  enrollments  and  work  units  using 
specified  or  existing  attrition  rates,  setback  rates,  and  course  lengths.  The 
third  measure  of  training  requirements  which  can  be  used  is  the  annual  en¬ 
rollments  to  each  course.  When  enrollments  are  input,  the  model  computes  work 
units  and  graduates  using  existing  or  specified  attrition  rates,  course 
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length,  and  setback  rates.  Only  one  of  the  three  productivity  measures 
can  be  used  since  more  than  one  measure  would  be  redundant  with  the  fixed 
model  parameters. 

PAY  RATES 

Military  and  civilian  pay  rates  can  be  input  into  the  model  or  the  model 
default  can  be  selected.  The  pay  rates  computed  by  the  model  are  obtained  by 
dividing  the  appropriate  total  costs  by  total  hours  to  obtain  an  average  pay 
per  hour.  The  annual  rate  is  computed  by  multiplying  the  hourly  rate  by  2,080 
hours. 

DATA  BASE  CHANGES 

Prior  to  the  execution  of  the  model,  the  user  has  the  option  of  selecting 
any  cell  in  each  of  the  data  sets  and  making  a  temporary  change  or  correction 
of  the  data  in  that  cell.  These  changes  are  not  automatically  made  on  the 
permanent  data  files.  However,  the  user  has  the  option  of  saving  on  permanent 
files  the  entire  revised  data  base  for  future  reference.  This  option  can  be 
used  to  input  administrative  dictated  changes  or  to  correct  or  update  the 
existing  data  base. 

SOLUTION  MODIFICATION 

Following  execution  of  the  model,  the  user  is  offered  the  option  of 
selecting  any  data  cell  in  each  of  the  data  sets  for  modification  or  change. 
This  option  is  exercised  prior  to  calculating  and  printing  the  summation  data 
on  total  cost  changes.  This  option  provides  the  capability  to  override  the 
model  results  and  input  into  the  solution  any  cost  impacts  resulting  from 
exogenously  determined  administrative  edicts. 

INFLATION 

An  inflation  option  can  be  selected  which  will  update  the  solution  and/or 
data  base  to  any  specified  year  as  indicated  by  the  number  of  months  in  the 
planning  period.  The  option  is  available  to  specify  an  inflation  rate  for  all 
MPN  funds  and  one  rate  for  all  O&MN  funds.  Each  data  element  in  each  of  the 
four  data  sets  is  uniquely  related  to  a  specific  type  of  fund  and  the  model  is 
constructed  to  apply  the  appropriate  inflation  rate  to  each  of  the  cells. 
Equipment  and  building  depreciation  estimates  are  not  inflated  since  those 
funds  are  usually  MILCON  or  OPN  funds.  If  the  year  selected  as  the  base  year 
for  analysis  is  different  from  the  data  base  year  then  the  data  will  be 
updated  to  the  base  year  selected  for  analysis.  Therefore,  inflation  rates 
must  be  provided  when  the  base  year  selected  for  analysis  differs  from  the 
data  base  year. 

ATTRITION  RATE 

The  current  attrition  rate  is  computed  by  taking  the  number  of  attrites 
as  a  percentage  of  the  total  enrollments.  The  attrition  rate  computed  by  the 
model  can  be  replaced  by  a  specified  attrition  rate  determined  by  the  user. 
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SETBACK  RATE 

The  setback  rate  used  in  the  model  is  that  rate  reported  for  each  course 
by  NITRAS.  This  rate  can  be  replaced  by  a  user  determined  setback  rate. 

SETBACK  PROPORTION 

This  represents  the  average  proportion  of  the  course  v-epeated  by  the 
typical  setback  student.  The  default  value  is  10  percent  but  the  user  has  the 
option  of  selecting  any  other  value. 

DIAGNOSTICS 

Following  execution  of  the  model  the  user  may  select  a  diagnostic  option 
which  will  provide  information  for  selected  variables  used  in  the  computation 
of  the  final  results.  The  exercise  of  this  option  would  normally  be  used  in 
evaluating  and  justifying  results  of  the  model  which  exceed  limits  expected  by 
the  user.  It  could  be  used  to  aid  in  the  identification  of  erroneous  input 
data. 
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SECTION  IV 
SUMMARY 

This  model  was  developed  under  the  philosophy  that  the  commonly  stated 
requirement  that  all  costs  must  be  allocated  to  each  output  unit  is  an  unnec¬ 
essary  requirement  to  obtain  useful  management  information.  Many  cost  models 
estimate  costs  for  each  new  output  level  and  then  compute  the  change  in 
costs  as  a  residual  between  the  original  costs  and  the  revised  cost  estimates. 
The  procedure  followed  in  this  model  first  estimates  the  change  in  costs  and 
then  the  revised  costs  are  estimated  by  adding  the  change  in  costs  to  the 
original  costs.  This  approach  has  avoided  the  cumbersome  and  usually  arbi¬ 
trary  procedures  for  allocating  joint  or  overhead  costs  down  to  each  Droduction 
unit. 


The  data  provided  by  the  output  of  this  model  on  incremental  cost  changes 
are  sufficient  to  answer  the  question  of  how  training  costs  will  be  affected 
for  given  changes  in  the  training  load  for  each  of  the  4,000  courses  in  the 
per  capita  data  base.  The  output  of  this  model  can  be  used  as  the  basis  for 
determining  optimal  changes  in  the  existing  configuration  of  training  systems 
which  become  necessary  because  of  changes  in  resource  availability.  The 
optimality  criteria  can  vary  but  it  will  require  a  determination  of  the  cost 
impacts  associated  with  adjustments  in  the  training  loads.-  This  model  pro¬ 
vides  an  estimate  of  these  cost  impacts. 

The  incremental  cost  estimates  obtained  from  this  model  are  considered 
the  proper  estimates  necessary  to  maintain  an  efficient  training  system. 

Also,  the  incremental  cost  estimates  from  the  model  can  be  used  to  determine 
the  adjustments  in  charges  which  must  be  made  to  the  various  sponsors  of  the 
training  courses. 

Results  from  this  model  cannot  be  used  to  estimate  the  total  charges  but 
only  how  existing  charges  are  to  be  adjusted  in  response  to  the  adjustment  in 
the  training  load.  The  full  allocation  of  all  costs  to  each  course  may  be 
necessary  in  order  to  allocate  the  total  training  budget  to  the  various 
warfare  sponsors,  especially  when  no  previous  basis  exists  for  considering 
only  the  changes.  In  order  to  fulfill  this  requirement  for  fully  allocated 
costs  and  to  provide  an  ad  hoc  method  for  estimating  the  marginal  costs  of 
direct  and  overhead  costs  for  each  course,  the  model  developed  and  reported 
here  will  be  extended  and  modified  in  further  developmental  work. 
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APPENDIX  A 
SCALE  ADJUSTMENTS 

The  scale  adjustments  in  current  AVC  were  based  on  the  assumption  that 
the  percentage  change  in  AVC  would  be  equal  to  the  percentage  change  in  AVC 
as  predicted  by  a  linear  regression  model.  Therefore  let: 

W^  =  Work  units  at  current  level 
=  Work  units  at  revised  level 
X  =  AVC  for  current  level  at  W^ 

X-j  =  Estimated  AVC  at  W2 

Y  =  Estimate  of  ATC  at  W-j  from  linear  regression  model 

Y1  =  Estimate  of  ATC  at  W2  from  linear  regression  model 

A  =  (Y-Y. )/( ( Y+Y. )/2)  =  Percentage  change  in  linear  regression  estimate 
1  1  of  ATC 

B  =  (W1-W2)/((W1+W2)/2)  =  Percentage  change  in  work  units 
An  elasticity  coefficient  (E)  was  computed  as  follows: 


When  |E|>1  then  total  costs  increase  as  work  units  increase  and  vice 
versa.  Therefore,  it  was  assumed  that  the 

%AX  =  %AY 


Therefore : 


X-X. 

- ' -  =  A 

(X+X1 )/2 


X-X1  =  A  ( X+X-j ) 
X(2-A)  =  X-j  (2+A) 


x1  =  X 


(2-A) 


However,  when  |E|<1  then  total  costs  increase  as  work  units  go  down  and 
vice  versa.  When  this  contingency  occurs  it  is  conceptually  untenable  and  a 
modification  of  the  above  assumption  is  necessary. 
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When  )E|<1,  it  is  assumed  that  the  data  are  faulty  and/or  the  scale 
prediction  function  is  incorrectly  structured,  and  the  scale  adjustment  is 
omitted. 
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APPENDIX  B 
THE  COMPUTER  MODEL 

The  following  items  are  included  in  this  appendix:  (a)  The  Cost  Model 
System  Flow  Chart,  (b)  File  Format  Specifications,  (c)  Program  Flow  Chart, 
(d)  Program  Listing,  (e)  Variable  Definitions,  (f)  Statement  Definitions, 
and  (g)  Sample  Output. 
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FILE  FORMAT  SPECIFICATIONS 


COURSE  FILE  FORMAT  SPECIFICATIONS 
User  File: 

File  Name . 

Approx,  number  of  records 

Password  . 

KFAM  blocking  type  .  .  . 

Blocking  factor . 

Logical  record  length.  . 

Key  Files: 

Number  of  key  files.  .  . 
Key  File  1: 

Key  name . 

Position . 

Key  File  2: 

Key  name . 

Posi tion . 


CRS.F101 

4000 

(none) 

A 

2 

124  +  1  sov  =  125 


2 

Course  ID  number 
(UIC  RMS  00) 
*prp(6,ll). *  **lrp(4,ll) 

CDP  humber 
prp(17,4) , 1 rp( 15,4) 


Description: 

This  file  contains  NITRAS  Course  descriptive  data  taken  from  the  MICRF 
Extract  Tape,  to  be  used  by  the  cost  model  program  "COMP.ECN". 

Sample  Programming: 

Declaration: 

DIM  A$(2)124 

DATA  LOAD  DC  #1,  A$() 

Record  Description: 


REC 

Pos 

STR 

Pos 

Dimension 
of  Field 

Bytes 

Packed 

Description 
of  Data  Item 

Comments 

1 

1.3 

3 

Blank  Field 

4,5 

5 

UIC  number 

9,4 

4 

RMS  number 

13,2 

4 

2 

Course  number 

(within  group) 

15,4 

4 

CDP  number 

19,8 

8 

Course  ID  No. 

27,2 

2 

Course  Type 

8 

29,1 

1 

Instruction  Method 

9 

30,3 

6 

Theory  Hours 

10 

33,3 

6 

Laboratory  Hours 

11 

36,3 

6 

Total  Contact  Hours 

12 

39,14 

28 

14 

Contact  Ratios 

(7  entries) 

13 

53,14 

28 

14 

Contact  Hours 

(7  entries) 

14 

67,3 

6 

Course  Lenqth 

15 

70,3 

6 

Course  Frequency 

16 

73,3 

6 

Personnel  Input 

17 

76,3 

6 

Equipment  Input 

18 

79,3 

6 

Space  Input 

19 

82,2 

4 

Attrition  Rate 

20 

84,2 

4 

Setback  Rate 

21 

86,38 

38 

fi»i9 

Unused 

(blanks ) 

*  prp  -  Physical  record  position 

**  lrp  -  Logical  record  position 
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f 

i 

f 


TABLES  FILE  FORMAT  SPECIFICATIONS 
Data  File: 

File  name . TABLES  2 

Approximate  number  of  records . 4 

Logical  record  length.  . .  2460  +  420  sov  (1st  rec) 

1980  +  300  sov  (other  recs) 


Description: 

This  file  contains  statistical  information  necessary  to  run  the  cost  model 
program  "EC0N0PR0". 

Sample  Programming: 

Declaration: 

DIM  F ( 2 , 60 ,  R$(60) ,  Ll(3,60),  L2(2,60) 

Data  Retrieval/Storage: 

Dataload  DC  #1,  FI),  R$(),  Ll()  --  first  rec 
Data  load  DC  #1,  F(),  R$(),  L2()  --  other  recs 

Record  Description: 


Rec 

Pos 

STR 

Pos 

Dimension 
of  Field 

Bytes 

Packed 

Description 
of  Data  Item 

Comments 

n 

1,480 

60  x  8 

Fixed  endpoints 

481 ,480 

60  x  8 

Var.  endpoints 

961 ,60 

60 

Related  cap. 

1021,480 

60  x  8 

regres.  constant 

1501  ,480 

60  x  8 

regres .  coef .  1 

ui 

1981,480 

60  x  8 

regres.  coef.  2 

1st  rec.  only 
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PERCAP  FILES  FORMAT  SPECIFICATIONS 


User  Files: 

Number  of  files  . 

File  names . 

Approx,  number  of  records 

Password . 

KFAM  blocking  type.  .  .  . 
Logical  record  length  .  . 

Key  Files: 

Number  of  key  files  .  .  . 
Key  file  1: 

Key  Name  . 

Position  . 

Key  file  2: 

Key  Name  . 

Position . 


52 

1234F15  (digits  are 
characters  of  UIC) 
4000  total 
(none) 

N 

397  +  6  sov  =  403 


2  for  each  user  file 


RMS  cost  code 
*prp(10,4) ,  **lrp(8,4) 


Distribution  code 
Prp(14,7).  1  rp  (12,) 


Description: 

This  file  contains  descriptive  information  about  course  groups  and  overhead 
levels.  Direct  training  costs  are  listed  for  40  different  sources. 

Sample  Programming: 

Declaration: 

DIM  Bl$37,  B2S60,  B(4)75 

Data  Retrieval/Storage: 

DATA  LOAD  DC  #1,  BIS ,  B2$,  B() 

Record  Description:  * 


Rec 

Pos 

— 

mSm 

Dimension 
of  Field 

Bytes 

Packed 

Description 
of  Data  Item 

Comments 

1 

mm 

Description,  codes 

Names,  Alpha  data 

■ 

Hill 

■EBB 

300 

Cost  data 

*  prp  -  physical  record  position 

**  lrp  -  logical  record  position 


I 


f 
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PROGRAM  FLOW  CHART 


ECON 


C  START V 

ZL _ 

LOAD  Kf  AM 

subroutines 

AND  OPEN 
"CDPFILE" 


/ 


THIS  IS  A 
LOADER  PROGRAM 
WHICH  SIMPLY  READS 
INPUT  PARAMETERS  AMD 
STARTS  THE  COST  MODEL 


CHECK  FOR 
VALIDITY 

AGAINST  "CRS.  FIOl 
AND  WRITE  TO 
"CDPFILE" 


LOAD 

"COMP.  ECN" 
(COST  MODEL 
PROGRAM) 
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1 


0 


COMPUTE  TOTAL 
ATTRITES,  ENROLL¬ 
MENTS,  AND  AT- 
TRITE  WEEKS  FOR 
THE  COURSE 


INITIALIZE 
PROP.  OF  COURSE 
REPEATED  AND 
ATTRITE  WEEKS 
PER  ATTRITE 


THIS  IS  WHERE 
.  THE  DESIRED 
-^•CHANGES  ARE  ACTUALLY 
ENTERED 


CALCULATE 
NEW  GRADS 
AND 

ENROLLMENTS 


CALCULATE 
REVISED 
WORK  UNITS 


CALCULATE 

FIND  DIFFER- 

CURRENT  WORK 

ENCE  IN 

UNITS  FROM 

CURRENT  AND 

EXISTING  COURSE 

REVISED 

INFORMATION 

-  1  - 

WORK  UNITS 

fINPUT  CHANGES 
(IF  ANY)  FOR 
AT.  RATE.  CRS. 

1  LNuTH. ,  SETBACK 
RATE,  AND  PROP. 
fOF  CRS.  REPEATED  i 


BREAK  DOWN 
DISTRIBUTION 
CODE 


INPUT  GRADS 
AND  ADJUST 
ENROLLMENTS 


INPUT 
ENROLLMENTS 
AND  ADJUST 
GRADS 


INPUT 
SUBSCRIPT 
'AND  REPLACE¬ 
MENT  VALUE  , 


PRINT  "NO: 
EITHER  WORK 
UNITS,  GRADS, 
OR  ENROLLMENTS 
MUST  BE  ENTERED" 
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CALCULATION 
ANO  PRINT 
SUBROUTINE 


/  PRINT 
/'END  OF  DATA  , 
IFOR  THIS  COURSE/ 
AT  COURSE  LEVEL'/ 


CLOSE 

"PERCAP" 

FILE 


/'HAVE  PAYS 
RATES  BEEN 
.INPUT  BY 
SJJSER?./ 


iERO  OUT  REVISED 
COST  CELLS  ARRAY 
AND  ARRAY  USED 
TO  SUM  COSTS  BY 
CATEGORY 


RESET  PAY  RATES 
TO  ZERO  TO 
SIGNAL 
DATA  BASE 
CALCULATION 


CLOSE  THE  MAJOR 
LOOP  FOR  COURSE 
LEVEL 

ESTIMATION 


HERE  IS  THE 
SETUP  OPERATIONS 
FOR  ACTIVITY  LEVEL 
ESTIMATION 


/  SORT  5 
^COURSES 
BY  UIC 
VNIJMBERi 


FOR  EACH  ACTI¬ 
VITY,  SUM  CUR¬ 
RENT  AND  REVISED 
WORK  UNITS  AND 
HUMBER  OF  COURSES 


/PAY  RATES, 
TO  BE  CALCU¬ 
LATED  BY  DAT  Ay 
S.BASE?./ 


I  READ  IN  , 
STATISTICAL# 
DATA  / 


/  MORE^C 
''C.D.P.s  TO^1 
J3E  PROCESSED. 


r  NEW 
ACTIVITY 


CREATE  "PERCAP” 
FILE  NAME  AND 
OPEN  APPROPRIATE 
FILE 


FIND  FIRST  TO 
GET  ACTIVITY 
LEVEL  COST 
RECORD 


'  INPUT 
PAY  RATES i 


BEGIN  ACTIVITY 
LEVEL  MAJOR 
LOOP 
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X 

/  "END  Of  DATA  / 
/  TOR  THIS  / 

/  ACTIVITY"  / 


SUM 

ORIGINAL 

SUBROUTINE 


|  FOR  EACH  DEPARTMENT 
SUM  CURRENT  AND 
REVISED  WORK  UNITS 
AND  NUMBER  OF 
COURSES 


RESET  PAY 
RATES  TO  ZERO 
TO  SIGNAL 
DATA  BASE 
CALCULATION 


ZERO  OUT 

REVISED  COST  CELLS 
ARRAY  AND  ARRAY 
USED  TO  SUM  COSTS 
BY  CATEGORY 


S’ 


BREAK  DOWN 
DISTRIBUTION 
CODE  FOR  EACH 
COURSE 


CLOSE  THE 
MAJOR  LOOP  AT 
THE  ACTIVITY 
LEVEL 


BEGIN 

PREPARATIONS  FOR 
DEPARTMENT  LEVEL 
ESTIMATION 


ho 


BEGIN  MAJOR 
LOOP  AT 

DEPARTMENT  LEVEL 


CREATE  "PERCAP" 
FILE  NAME 
AND  OPEN 
APPROPRIATE 
TILE 


ho 
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FIND  AVERAGE 
FIXED  AND 
VARIABLE  OJSTS 
FOR  THE  CELL 


CALCULATION 
AND  PRINT 
SUBROUTINE 


COMPUTE 
AVERAGE 
REVISED  COST 
FOR  THE  CELL 


/  PRINT  "END 
I  OF  DATA  FOR 
'THIS  DIVISION1^ 


VARIABLE 
COSTS  =  0?. 


APPLY  REGRESSION 
PREDICTION  TO 
ADJUST  THE 
COST  CELL 


CLOSE 

"PERCAP" 

FILE 


CONVERT  BACK 
TO 


''HAVE  PAY^ 
RATES  BEEN 
INPUT  BY 
"V  USER?  v' 


RESET  PAY 
RATES  TO  ZERO 
TO  SIGNAL 
DATABASE 
CALCULATION 
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c 


RETURN 
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DIAGNOSTIC  SUBROUTINE 


SUM  ORIGINAL  SUBROUTINE 


PACK  ALL 
NUMERIC 
DATA 


WRITE  NEW 
RECORD  TO 
"PERCAP" 


RETURN 


FIND  NEXT 
IN 

"PERCAP" 
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PROGRAM  LISTING 

START  PROGRAM  FOR  COST  MODEL  SYSTEM  I 


10  REM***  THIS  START  PROGRAM  ENABLES  CONTINUOUS  RUNS  OF  THE  COST 

15  REM***  MODEL  SYSTEM  I  BEGINNING  EXECUTION  WITH  A  LOAD  RUN 

20  PRINT  HEX(030101)  ;''*****  COST  MODEL  SYSTEM  I  *****";  PRINT  :  PRINT 

25  PRINT  :  PRINT  TAB(20);"  SYSTEM  MENU  PRINT  :  PRINT  :  PRINT  TAB(20);"1)  RUN  COST  MODEL" 

30  PRINT  :  PRINT  TAB(20);"2)  EXIT  SYSTEM":  PRINT  "  PRINT 

35  PRINT  HEX (07 ) :  INPUT  “  *  ENTER  OPTION  NUMBER  DESIRED", Z:  ON  Z  GO  TO  45,50 

40  PRINT  "INVALID  OPTION  NUMBER,  TRY  AGAIN":  GO  TO  35 
45  LOAD  DC  T#0,  "ECON" 

50  PRINT  HEX ( 03 ) :  DATA  SAVE  DC  CLOSE  ALL:  STOP  "COST  MODEL  SYSTEM  TERMINATED" 
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ECDN  <e/iO/SO> 


0010  REM  « 

PART  ONE  "ECOl-l"  »•*■*■*■ 

0030  REM  % 

COMMON  KFAM  VARIABLES 

0035  COM  II ,I2,R4,R5,N1 ,P1 ,N0 ,A3*1 ,A4*i ,A5*1 .ABS1 ,D1 .D3.X* ,A*3 .B9*3 . A9*l ,P0S3 ,A7 
*1 ,A2*1 ,CS*1 

0040  COM  V7*8,T0*7,V9,V0*(3)2,T1<3) 

0050  COM  V0*2,V1*8,V2*2,V3*2,V4*2.V  6*1 

0060  COM  Q2*2,V5*1 ,V8*1 ,T5*30 ,T7*30 

0070  COM  TO  ,T9 ,T2*2 ,T4*3 ,T2 ,V8,T8 .T1 .  TB*i .  T2* (8)2 

0080  COM  T4,T5,V6,V7,V1 ,Q3*2,T<3) 

0090  COM  V7*<3>8 ,04*2 ,Q9*2,Q0* <4 ) GO .Q  Q*i 

0100  COM  T9*2,TO*(4>60 ,T6*1 ,T3*3,T1*<1  )2.T3*(1 >33 .V9*2 ,T1*30 
0120  DIM  D2*5 

0130  LOAD  DC  T#0 , “COMMKFAM"  8000,  BEG  140 

0140  DATA  LOAD  DC  OPEN  T#0 .  "CDPFILE " 

0150  REM  % 


DATA  ENTRY 

0155  PRINT  HEX ( 030A0A ) 5 “  ***  COST  MODEL  PROGRAM  (ECON)  *  *  *  * 

:  PRINT  HEX  <0A0A ) 

J  LINPUT  “PLEASE  TYPE  IN  THE  DEVICE  ADDRESS  OF  THE  PERCAPITA  DATABASE  " : -A* 

:  IF  P0S( “3BD"=SrR(A*,l .1 ) >*P0S ( " 1234567" =STR (A* .2.1 ) >*P0S< "0 12343 "=STR ,A* ,3 , 
1  )  )<>0  THEN  156 
:  PRINT  HEX (07) 

:  GOTO  155 

0156  LINPUT  “ENTER  THE  DEVICE  ADDRESS  OF  THE  COURSE  FILE".-B9* 

:  IF  POS(  "3BD"=*STR(B9*  ,1  , 1  )  )*P0S(  "  1234567  "  =STR  <  B9*  .  2 . 1  )  >*P05(  "012345'  =S~R  >B9* 
,3.1 ) )<>0  THEN  158 
:  PRINT  HEX  (0700 
:  GOTO  156 

0158  SELECT  #1 <A*> ,#2<A*> ,#3<B9* > , #4 <B9* 

J  ERROR  GOTO  160 
0159  GOTO  161 

0160  PRINT  HEX (0703) 

:  PRINT  “AN  ERROR  OCCURRED  IN  SELECTING  DEVICES:  PLEASE  RE-ENTER" 

:  FOR  I«1  TO  10000 
:  NEXT  I 
:  GOTO  155 

0161  LIMITS  T#1 , “DUMMY" ,H,E,L,P 
:  ERROR  GOTO  160 
0162  LIMITS  T#3, “DUMMY" ,H,E,L,P 
:  ERROR  GOTO  160 

0165  INPUT  "ENTER  INFLATION  RATE  FOR  MPN  (DECIMAL  NUMBER)". I 1 
:  ERROR  PRINT  HEX  (0700 
:  GOTO  165 

0170  INPUT  "ENTER  INFLATION  RATE  FOR  O&MN  (DECIMAL  NUMBER) ".12 
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:  ERROR  PRINT  HEX  (0700 
:  GpTO  170 

0175  INPUT  "ENTER  NUMBER  OF  COURSES  TO  BE  ALTERED" .N1 
:  ERROR  PRINT  HEX  <0700 
:  GOTO  175 

0180  PRINT  "IF  YOU  WISH  TO  USE  EXISTING  DATA  BASE  PAY  RATES  HIT  RETURN." 

:  PRINT  “OTHERWISE  ENTER  AVERAGE  ANNUAL  MILITARY  PAY  (COURSE  LEVEL)  FOR  THE 
YEAR" 

:  INPUT  “BEING  ESTIMATED.  PAY  SHOULD  BE  IN  FUTURE  DOLLARS". R4 
:  ERROR  PRINT  HEX (0700 
:  GOTO  180 

0185  IF  R4=0  THEN  190 
:  AB*=“I“ 

0187  PRINT  “ENTER  AVERAGE  ANNUAL  CIVILIAN  PAY  (COURSE  LEVEL)  FOR  THE  YEAR' 

:  INPUT  "BEING  ESTIMATED.  PAY  SHOULD  BE  IN  FUTURE  DOLLARS" ,R5 
:  ERROR  PRINT  HEX  (0700 
:  GOTO  187 

0190  INPUT  “ENTER  THE  FISCAL  YEAR  OF  THE  DATABASE.  <uw)  “ .D 
:  ERROR  PRINT  HEX  (0700 
:  GOTO  190 

0195  INPUT  "ENTER  THE  DATE  TO  BEGIN  IMPLEMENTING  CHANGES,  di/uu'  ”.DB* 

0196  CONVERT  STR(D2*,4,2)  TO  D2 
:  ERROR  PRINT  HEX  <0700 

:  INPUT  “PLEASE  RE-ENTER  THE  DATE  TO  BEGIN  IMPLEMENTING  CHANGES  ( ■»/««)" ,DB* 

(  GOTO  196 

0197  CONVERT  STR(D2*.l ,2)  TO  D4 
J  ERROR  PRINT  HEX  <0700 

:  INPUT  "PLEASE  RE-ENTER  THE  DATE  TO  BEGIN  IMPLEMENTING  CHANGES  (■»/««) '  ,D2* 

:  GOTO  196 

0198  IF  D4>0  AND  D4<13  THEN  199 

:  PRINT  HEX (070C ) ;TAB  <  80 ) ;HEX (ODOC ) 

:  PRINT  "AN  INVALID  DATE  HAS  BEEN  ENTERED:  PLEASE  RE-ENTER* 

:  GOTO  195 

0199  D1 = (D2-D )*12+D4-9 

0200  INPUT  "ENTER  THE  PLANNING  PERIOD  (IN  MONTHS)”. PI 
:  ERROR  PRINT  HEX  (0700 
:  GOTO  200 

0205  PRINT  “ENTER  THE  LENGTH  OF  TIME  AFTER  THE  PLANNING  PERIOD  EXPIRES,' 

:  INPUT  "BEFORE  COST  ESTIMATES  ARE  NEEDED.  (IN  MONTHS.  MAY  BE  0)",D3 
:  ERROR  PRINT  HEX(070C0C) 

:  GOTO  205 

0210  PRINT  HEX ( OA ) 

0220  PRINT  HEX  <  OC ) 

-.  INPUT  "DO  YOU  WISH  TO  CALCULATE  LABOR  COSTS  BASED  ON  PARTIAL  BILLETS  (V/N)' 
,  A3* 

:  IF  A3*  <  > " Y "  AND  A3*<>"N"  THEN  220 
:  PRINT  HEX (OAOA ) 

0230  PRINT  HEX ( OCOC ) 

:  PRINT  "WILL  YOU  WANT  TO  MAKE  ANY  CHANGES  IN  THE  ORIGINAL  COST  DATA  BEFORE  E 
STIMATING" 


57 


TAEG  Report  No.  77 


:  INPUT  "NEW  COSTS  (Y/N)" ,A4* 

:  IF  A4*<  > “Y “  AND  A4*<>"N"  THEN  230 
:  PRINT  HEX  <  OA ) 

:  GOSUB  '230 ( 1  ,3 ,4  ,2, "CRS  .F101 " > 

:  IF  Q*<>"  “  THEN  390 
0235  PRINT  HEX ( OC ) 

:  INPUT  "DO  YOU  WISH  TO  BYPASS  CAPACITY  ADJUSTMENTS  <V/N)".A7* 

:  IF  A7*<  >  "Y  “  AND  A7*<>"N"  THEN  235 
:  PRINT  HEX ( OA ) 

0237  PRINT  HEX ( OC ) 

:  INPUT  "DO  YOU  WISH  TO  BYPASS  SCALE  ADJUSTMENTS  (Y/Ni  ".AH* 

:  IF  A2*C>"Y"  AND  AH*  <  > “N "  THEN  237 
:  PRINT  HEX ( OA ) 

0236  PRINT  HEX < OC ) 

:  INPUT  "WOULD  YOU  LIKE  FIXED  AND  VARIABLE  COSTS  PRINTED  <Y/N)".C5* 

:  IF  C5*<  > "V "  AND  C5*  <  > “N "  THEN  238 
:  PRINT  HEX ( OA ) 

0240  PRINT  HEX ( OC ) 

:  INPUT  "WILL  VOU  WANT  HARD  COPIES  OF  COST  SUMMARIES  FOR  EACH  RECORD  (Y/N)", 
A5* 

:  IF  AS*<>"Y"  AND  AS*<>"N"  THEN  240 
:  PRINT  HEX ( OA ) 

0243  PRINT  HEX  (  OC ) 

:  LINPUT  "ENTER  THE  DEVICE  ADDRESS  OF  THE  LINE  PRINTER  TO  BE  USED"-P0* 

:  PRINT  HEX ( OA ) 

:  IF  POS( "02"=STR(P0*,1 ,1 ) )*POS ( "01 “ =STR ( PO* .2.1 ) )*POS( "456 " =STR ( PO* ,3 , 1 )  >  OO 
THEN  245 

:  PRINT  HEX  (0700 
:  GOTO  243 

0245  PRINT  HEX  <  OC  > 

:  INPUT  "WILL  YOU  WANT  TO  ALTER  THE  DATABASE  TO  SAVE  THE  REVISED  COST  ESTIMAT 
ES  ( Y/N ) " ,A9* 

:  IF  A9*<  >  "Y "  AND  A9*<>"N"  THEN  245 
:  IF  A 9*  <  >  "Y 11  THEN  248^ 

0246  LINPUT  "ENTER  THE  PASSWORD  FOR  DATA  BASE  ALTERATION" . -X* 

IF  X*=" PASSWORD"  THEN  248 

:  PRINT  HEX ( 07 ), "SORRY  THAT  IS  NOT  IT.  TRY  ENTERING  IT  AGAIN." 

0247  LINPUT  -X* 

:  IF  X*= "PASSWORD"  THEN  248 

:  PRINT  HEX ( 07 ), "SORRY ,  YOU  CAN'T  ALTER  THE  DATA  WITHOUT  THE  PASSWORD" 

:  X*="  " 

:  FOR  1=1  TO  10000 
:  NEXT  I 

0248  DIM  N2*4,B0*1 
0250  PRINT  HEX (03) 

:  PRINT  "  ***  C  D  P  VALIDITY  CHECK  ***" 

:  PRINT  HEX  <  OA ) 

:  PRINT  "AS  A  CHECK  ON  AVAILABILITY  OF  DATA.  PLEASE  ENTER  EACH  CDP  YOU  WISH  T 
O  REVISE" 

:  FOR  B=1  TO  N1 
0260  PRINT  "CDP  #";B; 

:  LINPUT  -N2* 

:  GOSUB  '  232 (1,0, N2*  > 

:  IF  Q*-"  *  THEN  280 

0265  INPUT  "  90RRY,  DATA  IS  NOT  AVAILABLE  FOR  THAT  CDP.  DO  YOU  WISH  TO  REPLAC 
E  IT  OR  OMIT  IT  (R  OR  O)“,B0* 

:  IF  B0*O"R"  AND  B0*<>"0"  THEN  265 
0270  IF  B0»-"R"  THEN  260 
5  Nl-Nl-1 
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:  IF  N1=0  THEN  GOSUB  '  15 
:  GOTO  890 

0280  PRINT  11  VAL^O  CDP.  DATA  IS  AVAILABLE" 

0290  IF  B0*="0“  THEN  300 
:  DATA  SAVE  DC  #0,N2* 

0300  B0*  =  "  “ 

:  NEXT  B 
:  N0=2*N1 

;  SELECT  PRINT  <P0*>(130> 

:  PRINT  HEX ( 0C0A0A0A0E ) 

:  PRINT  "  ***  COST  MODEL  PROGRAM  ***" 

S  DATA  SAVE  DC  #0 ,  END 
0310  PRINT  HEX (OAOAOE  ) 

:  PRINT  "*  INPUT  PARAMETERS  *“ 

:  PRINT  HEX (OAOAOE) 

0320  PRINT  “INFLATION  RATE  FOR  MPN  ":I1 
:  PRINT  HEX ( OAOE ) 

PRINT  "INFLATION  RATE  FOR  D&MN  ":I2 
:  PRINT  HEX (OAOE) 

0330  IF  R4=0  THEN  340 

:  PRINT  "AVERAGE  MILITARV  PAY  " : R4 
:  PRINT  HEX (OAOE) 

:  PRINT  "AVERAGE  CIVILIAN  PAY  " : R5 

:  PRINT  HEX (OAOE) 

0340  PRINT  "NUMBER  OF  COURSES  TO  DE  ALTERED  ":N1 
!  PRINT  HEX (OAOE) 

:  PRINT  "PLANNING  TIME  <IN  MONTHS)  ":Pl 

:  PRINT  HEX (OAOE) 

0350  PRINT  "PARTIAL  BILLETS  7  ”;A3* 

:  PRINT  HEX (OAOE) 

:  PRINT  “ORIGINAL  DATA  CHANGES  7  ":A4* 

I  PRINT  HEX (OAOE) 

:  PRINT  “SAVE  REVISED  COST  ESTIMATES  ":A9* 

•.  PRINT  HEX  (OAOE) 

0360  PRINT  "COPIES  OF  COST  SUMMARIES  ?  ":A5* 

:  PRINT  HEX (OAOE) 

036S  PRINT  “BYPASS  CAPACITY  ADJUSTMENTS  7  ":A7* 

:  PRINT  HEX (OAOE) 

0370  PRINT  "BYPASS  SCALE  ADJUSTMENTS  7  ";A2* 

:  PRINT  HEX (OAOE) 

0375  PRINT  "PRINT  FIXED  AND  VARIABLE  COSTS  7  "(CS* 

!  PRINT  HEX ( 0A0A0C0E ) 

0380  LOAD  DC  T#0 , "COMP  .ECN" 

0390  GOSUB  '  239 ( 1  ) 

J  IF  Q*=“  "  THEN  400 

:  PRINT  "ERROR  IN  KFAM  OPEN',  PRESS  ANY  KEY  TO  RETURN  TD  MENU” 
!  KEVIN  A5* 

:  LOAD  DC  T#0 , "COSTMENU"0 ,9999  BEG  10 

0400  GOSUB  '  230(1 ,3,4,2, “CRS.F101 " > 

:  IF  Q%="  "  THEN  235 
:  GOTO  390 

0450  DEFFN  '  IS 

:  GOSUB  '  239 ( 1 ) 

:  RETURN  CLEAR  ALL 

:  COM  CLEAR 

:  LOAD  DC  T#0  .  "COSTMENU"0 , 9999  DEG  ICO 
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***  E  COt-4  ***  (5 


A* 

-  0035 

0155 

0158 

AS* 

-  0035 

0237 

0370 

A3* 

-  0035 

0220 

0350 

A4* 

-  0035 

0230 

0350 

AS* 

-  0035 

0240 

0360 

0390 

A7* 

-  0035 

0235 

0365 

A8* 

-  0035 

0105 

A  9* 

-  0035 

0245 

0350 

B 

-  0250 

0260 

0300 

BO* 

-  0248 

0265 

0270 

0290  0300 

B9* 

-  0035 

0156 

0158 

C5* 

-  0035 

0238 

0375 

D 

-  0190 

0199 

D1 

-  0035 

0199 

D2 

-  0196 

0199 

D2* 

-  0120 

0195 

0196 

0197 

D3 

-  0035 

0205 

D4 

-  0197 

0190 

0199 

E 

-  0161 

0162 

H 

-  0161 

0162 

I 

-  0160 

0247 

11 

-  0035 

0165 

0320 

12 

-  0035 

0170 

0320 

L 

-  0161 

0162 

NO 

-  0035 

0300 

N1 

-  0035 

0175 

0250 

0270  0300  0340 

N2* 

-  0248 

0260 

0290 

P 

-  0161 

0162 

P0* 

-  0035 

0243 

0300 

PI 

-  0035 

0200 

0340 

Q 

-  0090 

Q* 

-  0090 

0230 

0260 

0390  0400 

ao*<  -  0090 
02*  -  0060 
03*  -  0000 
04*  -  0090 
09*  -  0090 

P4  -  0035  0180  0105  0330 
RS  -  0035  0107  0330 


T  ( 

-  0080 

TO 

-  0070 

TO* 

-  0040 

TO*  < 

-  0100 

T 1 

-  0070 

Ti* 

-  0100 

T 1  < 

-  0040 

T  1*  v 

*  0100 

T2 

-  0070 

T2* 

-  0070 

T2*< 

-  0070 

T3* 

-  0100 

T3*< 

-  0100 

T4 

-  0080 

T  4* 

-  0070 

T5 

-  0000 

T5* 

-  0060 

T  6* 

-  0100 

T7* 

-  0060 

T0 

-  0070 

T8* 

-  0070 

T9 

-  0070 

T9* 

-  0100 

vO* 

-  0050 

V0*< 

-  0040 

VI 

-  0000 

VI* 

-  0050 

V2* 

-  0050 

V3* 

-  0050 

V4* 

-  0050 

vs* 

-  0060 

Vb 

-  0080 

v6* 

-  0050 

V7 

-  0080 

V7* 

-  0040 

V7*  i 

-  0090 

V8 

-  0070 

ve* 

-  0060 

v9 

-  0040 

V9* 

-  0100 

/.* 

-  0035  0246  0247 

/  X  O  /  BO 


> 
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-**■•**■  COMP.HCN  <S/iO/BO  > 

0040  LOAD  DC  T#0 , "COMMKFAM"8000 ,BEG50 
0050  COM  X*(N1 >9,X1*(N1 >7,C(N1 ) 

0060  COM  U1*(N1 )5 ,U*(N1 )5,R3(N1 )  ,W (Ml i  .G*(N1 >2 ,LI*N0 ,G <N1 ) .Dl* (Ni )S .02* (Ni  ;2 ,D*(N 
1 )2,D0*(N1 >2, SI <N1 ) ,S£(N1 ) 

0070  SELECT  #1 <B9*> ,#2<A*> ,#3<B9*/ .#4- B9* - -#5<A*> .#6<A*> 

0150  DIM  F<60 ,2) ,R* (60 >1 ,L1 <60 ,3 > ,r2(6G  2 > . R2* < 60 ) 1 ,L2 < 60 .2 ) .F3 ( 60 .2 > , R3* ; SO ) 1  ,L 
3(60  ,2)  ,F4<60 ,2)  ,R4*(60  >1  ,L4<  60 .2)  .  i  JS  ( 4  )  1 5  .  A0*1  .AO*  (46)  8  .  A9*  (40  )  6  ,ZC'ii 
0160  DIM  N2*4 ,C0  <60 )  ,A1*1 ,14(60 )  ,U*7  .K* ; 60  )  5  .  A* (2  > 124 ,B* (4  >75 .B l 60 ) ,U1*5 , R1S4 ,B1 
*37 ,B2*60 ,C2*4 , C3*8 , C4*2 , D*4 , Kl* ( 1 ;2.Z*1 .A6*l 
0170  DIM  Al<10,60)  ,A2(10,60)  ,R(2,10)  .0(2.10)  .FI  (60)  .V<60> 

:  DATA  LOAD  DC  OPEN  T#1 , "TABLES2" 

:  DATA  LOAD  DC  OPEN  T#0  ,  "COPFILL’' 

0180  FOR  H=1T0  60 
:  A2 (1 ,H  >  =0 
:  NEXT  H 

0161  RESTORE  LINE  102 

0182  DATA  "M  .HR"  ,  "C.HR"  ,  "M  .LB 11  ,  "C.LB"  .  "SUPP"  .  "CONT"  .  "MISC"  .  "M  .HR  “  .  "C  .HR"  ,  "M.LB"  , 
11 C  .  LB  "  ,  "SUPP"  ,  "CONT"  ,  "MISC"  ,  "M.LB"  "MISC"  .  "M.LB"  .  “MISC"  .  "MISC"  .  "MISC"  ,  "M.LB 
"  ,  “MISC" , "M.LB" , "MISC" 

0163  DATA  "M.LB" , “C.LB" ,"SUPP" , "CONT" . "MISC" . “M.LB" , "M.LB" . "MISC" . “MISC" , "MISC" , 
"MISC" , "M.LB" , "MISC" , “M.LB" , “M.LB" . "MISC" . "M.LB" . "AT-WKS" . "GRADS” , "LENGTH" , 
"AT RTS"  ,  “UI.UTS" 

0184  INIT(BO)  A0*(),A9*() 

0185  AO* ( 1 ) = “DIRECT " 

'.  AO*  (6  )  =  " AC-FC-SP " 

:  AO* (15)= "HOST -ACT" 

:  AO* (17)= "OT -ACT " 

:  AO* ( 19 ) = “TR-EQ-MT " 

:  AO*  <  20  >  =  "M J -P JT “ 

!  AO* (21 ) = "ADP “ 

:  AO*  <  23 )  =  " CNETS " 

:  AO* (25 ) = "FN . CMD" 

0166  AO* (30 ) ="STF .PCS" 

:  AO* (31 )="STF.BMD" 

:  AO* (33 ) = "STF-F .H . " 

:  AO* (34 ) ="EQ .DEP" 

:  AO* (35 ) =”BLD .DEP " 

*.  A0*(36)  =  "STU.BMD" 

:  AO*  <38 )  =  "STU-F .H . " 

;  AO* ( 39 ) = "STU . TUL " 

:  AO* ( 41 ) = "STU-SAL " 

0187  AO* (42 >»"STA .DATA" 

0188  MAT  READ  A9* 

0190  DATA  LOAD  DC  OPEN  T#2 , "UICLIST " 

0200  DATA  LOAD  DC  #S,K*(> 

0210  DATA  LOAD  DC  #1 ,F < ) ,R* < ) ,L1 < ) 

0230  FOR  I=1T0  N1 

:  SELECT  PRINT  005(80) 

0240  DATA  LOAD  DC  *0 ,N2* 

J  PRINT  HEX (03) 

:  PRINT  "  CDP  NUMBER  FOR  COURSE  ":N2* 

0260  GOSUB  '232(1 ,0,N2«) 

0270  IF  0*0"  "THEN  4170 
0280  DATA  LOAD  DC  #4 ,A*( ) 

0290  COSUB  'BO 
E=0 

0300  U1*-STR<A*«J>  ,4,S) 
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:  uis<i>=ui* 

0310  STR<U*,1 ,4)=STR(U1*,1 ,4) 

:  STR<U*,S,a>="Fl“ 

:  STR  <U* .7,1) »STR <U1* ,5,1) 

03 £0  GOSUB  '£30 <£,5,6,1 ,U*> 

0330  IF  0*0“  "THEN  GOSUB  4180 
:  Q=»E 

0340  R1*«STR<A*<Q) ,9,4) 

0350  GOSUB  '£3£  <£ , 0 , Rl* ) 

0360  IF  Q*<>“  "THEN  4190 

0370  DATA  LOAD  DC  #6 ,B1* ,B£*  ,B« < ) 

0380  GOSUB  '35 
0390  IF  C < * 1 THEN  399 
:  Z*«“G“ 

:  GOTO  420 

0399  GOSUB  '£37<1) 

:  IF  Q*=»"  "THEN  400 
:  IF  Q*= “E "THEN  Z*=“  “ 

:  IF  Q*<  > “E "THEN  4£00 
:  GOTO  440 

0400  DATA  LOAD  DC  #4,A*<) 

:  GOSUB  '£0 
:  IF  OITHEN  Z*=“G" 

:  GOSUB  ' £3£  <1,0, N8* ) 

:  IF  <3*0 "  “  THEN  4170 
04£0  DATA  LOAD  DC  #4,A*<) 

:  GOSUB  '£0 
0430  FOR  J=1  TO  D1 
0440  RESTORE  LINE  441 

0441  DATA  3, 10, 15, 17, £1 ,£3,85,31 ,30,36.39.41 

044£  DATA  4 , 1 1 , £6 , 5 , 1£ ,£7 , 6 , 13 ,£8 , 7 . 14 . 1 6 . 1 B .££ .£4 .£9 .38 .33 . 19 .£0 .34 ,35  ,37 .9» ,<* 

0443  FOR  M=*l  TO  1£ 

:  READ  X 

:  B(X)=B<X)+(I1 /1£ )*B (X ) 

:  NEXT  M 

0444  FOR  M=1  TO  £5 
:  READ  X 

:  b <x  >  =b <x )  +  < ia/ia )*B<X ) 

:  NEXT  M 
0445  NEXT  J 

0446  IF  Z*<>“G"  THEN  458 
:  PRINT  HEX  <  0A0A0A0A ) 

:  PRINT  "  **  GROUPED  COURSE  **" 

:  PRINT  “PLEASE  ENTER  CURRENT  < ORIGINAL)  LEVEL  WORK  UNITS  FOR  CDF  k;NB» 

:  PRINT  "< CURRENT  WORK  UNITS  FOR  THE  ENTIRE  GROUP  :B<60 > t ■ ) * 

:  INPUT  B£ 

:  ERROR  PRINT  HEX  < 070C0C0C0C0C0C0C0C  ) 

:  GOTO  446 

0447  FOR  F-1T0  41 

:  B IF ) *B <F ) *B£/8 < 60 ) 

:  NEXT  F 

:  XI  *B  <43  )  -fB  <45  ) 

:  IF  B < 45 ) *0  THEN  B<45)-.0001 
:  X7-B<4£) /B<45) 

:  X3*B <45 ) /XI 

0448  INPUT  "ENTER  NUMBER  OF  GRADUATES "  .8 <43 ) 
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:  ERROR  PRINT  HEX  (0700 
:  GOTO  448 

0449  INPUT  "ENTER  COURSE  LENGTH  (CALENDAR  DAYS ) “ .B <44 ) 

:  ERROR  PRINT  HEX  (0700 
:  GOTO  449 

04S0  B (45 ) * (X3*B ( 43 ) ) / < 1 -X3 ) 

:  X 1  ■•B  <  43 )  +B  ( 45 ) 

:  B (42 ) *X7*B (45  > 

:  B ( 60 ) =BE 

0452  PRINT  HEX ( OAOAOAOA ) 

0453  PRINT  HEX ( OCOCOC  > 

:  X9*B (44 ) 

:  PRINT  "DO  YOU  ALREADY  KNOW  THE  REVISED  WORK  UNITS  YOU  WISH “ 

:  PRINT  "TO  INPUT  FOR  THAT  COURSE  ?  '.CUR.  W.U.  =  “  :B(60):"  >  Y/N" 

:  INPUT  Al* 

;  IF  A 1  ♦  <  >  “  Y  “  AND  A1*<>"N“  THEN  453 
:  X6-.1 
:  xa=B(43> 

:  xi-xa+B<45) 

:  X3*B (45 ) /XI 
:  IF  B  <  45 ) =*OTHEN  X7-0 
:  IF  B (45 ) “OTHEN  455 
:  X7*B(4E)/B(4S) 

0455  IF  A14* "Y “THEN  510 

:  G 1 -B ( 44 ) *xe+7*X7*X 1 *X3+X2*X5* X6*B ( 44 ) 

5  X3«ROUND(X3,a) 

:  W1 »G1 /30 

1  PRINT  "IF  YOU  DO  NOT  WISH  TO  CHANGE  THE  FOLLOWING  MODEL  PARAMETERS,  HIT  RET 
URN.  " 

:  PRINT  "OTHERWISE  ENTER  THE  REPLACEMENT  VALUE" 

J  PRINT  HEX ( OA ) 

0460  PRINT  "ESTIMATED  ATTRITION  RATE  " : X3 
:  INPUT  X3 

:  ERROR  PRINT  HEX (07) 

:  PRINT  HEX ( OCOC ) 

:  GOTO  460 

0461  PRINT  "COURSE  LENGTH  IN  CALENDAR  DAYS  ":B<44> 

:  INPUT  B (44 ) 

:  ERROR  PRINT  HEX ( 0 . , 

:  PRINT  HEX (OCOC) 

:  GOTO  461 

0463  PRINT  "ESTIMATED  SET-BACK  RATE  " :X5 
:  INPUT  X5 

!  ERROR  PRINT  HEX (07) 

:  PRINT  HEX (OCOC) 

:  GOTO  46a 

0463  PRINT  "PROPORTION  OF  THE  COURSE  REPEATED  FOR  THE  AVERAGE  SET-BACK XB 
:  INPUT  X6 

:  ERROR  PRINT  HEX (07) 

:  PRINT  HEX (OCOC) 

:  GOTO  463 

0470  INPUT  "DO  YOU  WISH  TO  SPECIFY  THE  NUMBER  OF  GRADUATES.  (V/N)".AO* 

:  IF  A0*<  >  "V  “  AND  A0*O"N"  THEN  470 
:  IF  A0*«“N“  THEN  480 
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04-75  PRINT  "ENTER  NUMBER  OF  OUTPUTS  < GRADUATES  >  "  :  X2 
:  INPUT  X2 

:  ERROR  PRINT  HEX(070C0C> 

:  GOTO  475 

0476  X 1 =X2 / ( 1 -X3 ) 

:  GOTO  500 

0400  INPUT  "DO  YOU  WISH  TO  SPECIFY  THE  NUMBER  OF  ENROLLMENTS.  (Y/N)“,A0* 

:  IF  A0*O"Y"  AND  AO*  <  >  “N "  THEN  480 
:  IF  A0*="N“THEN  490 

0435  PRINT  "ENTER  NUMBER  OF  INPUTS  (ENROLLMENTS )“: XI 
:  INPUT  XI 

:  ERROR  PRINT  HEX(070C0C) 

:  GOTO  405 

0487  X2=X1* ( 1 -X3 ) 

:  GOTO  500 

0450  SELECT  P4 

:  FOR  H=1T0  10 
:  PRINT  HEX (03) 

:  PRINT  HEX (07) 

t  PRINT  "  NO-NO,  YOU  MUST  INPUT  EITHER  WORK  UNITS.  GRADUATES  OR  ENROLL! TENTS . 

TRY  AGAIN" 

:  NEXT  H 
:  SELECT  PO 
;  PRINT  HEX (03) 

:  GOTO  452 

0500  W2= (B (44 ) *X2  +  7*X7*X3*X1 +X5*X6*B  <44 } *X2 ) /30 
:  W3=W2-W1 
:  R3=W3+B ( 60 ) 

:  GOTO  520 

0510  INPUT  "ENTER  REVISED  WORK  UNITS  FOR  THAT  COURSE". R3 
:  ERROR  PRINT  HEX  (0700 
:  GOTO  510 

0515  X8=  30*R3/ (B'44 )+7*X7*X3/ ( 1-X3)+X5*X6*B<44 ) ) > - <30*B <60 > / <B <44 ) +7*X7*X3/ < 1-X 
3 ) +X5*X6>B ( 44  )  )  ) 

:  X2=B ( 43 ) +X8 
:  X 1 =X2 / ( 1 -X3 ) 

0520  R3  < I ) =R3 

:  I3=R3-B ( 60  ) 

:  W  <1  )  =B  ( 60  ) 

:  Bli ( I )=STP(B1* , 12 ,2) 

:  B2* ( I ) =STP ( B 1 * , 1 4 , 2 ) 

0530  IF  A4®= "N "THEN  570 

:  INPUT  "WOULD  YOU  LIKE  TO  CHANGE  THE  ORIGINAL  COST  DATA  FOR  THIS  COURSE  (V/ 
N i " ,A1* 

:  IF  Alt*.  >"Y"  AND  Al*<>  “N“  THEN  530 
:  IF  Al*= "N "THEN  570 
:  PRINT  HEX (0 AO A) 

0540  PRINT  HEX ( OCOC ) 

:  PRINT  "ENTER  THE  SUBSCRIPT  OF  THE  DATA  CELL  YOU  WISH  TO  CHANGE. 

:  INPUT  "IF  NO  MORE .ENTER  0",N 
:  ERROR  PRINT  HEX (07) 

:  GOTO  540 


64 


TAEG  Report  No.  77 


0542  IF  N < > ABS ( INT ( N ) ) THEN  540 
:  IF  N<0  OR  N>41  THEN  540 
0545  IF  N=0THEN  570 

:  PRINTUSING  550 ,N ,B  <N ) 

0550  X  PRESENT  VALUE  FOR  CELL  ##  =  =f  .###.###.###.  ## 

0560  INPUT  “ENTER  REPLACEMENT  VALUE  (NO  COMMAS  OR  DECIMAL >“ .B <N ) 
:  ERROR  PRINT  HEX  (0700 
:  GOTO  545 

0565  PRINT  HEX ( 030A0A0A0A ) 

:  GOTO  540 

0570  C5-1 

:  IF  CS*="Y"  THEN  GOSUB  '  90 

:  cs-o 

:  MAT  FI =ZER 
:  MAT  V=ZER 
:  FOR  L=1  TO  9 

:  IF  L>2  AND  L <8  THEN  GOTO  579 
0571  IF  PI >F  <L  ,  1 >  THEN  572 
:  P=l 

:  GOTO  578 

0572  IF  PI <F  <L ,2 )  THEN  574 
!  P=0 

:  GOTO  578 

0574  P0=P1 -F  (L  ,  1  ) 

:  P3=F (L ,2 ) -F (L  ,  1  ) 

:  P=l-P0/P3 
0578  F1(L)=B(L)*P 
:  V  <  L  )  =B  ( L  )  -F 1  ( L  > 

0579  NEXT  L 

:  FOR  L=3T0  41 
:  IF  L=80R  L=9THEN  821 
:  IF  R3=0THEN  B21 
:  IF  B(L)=0THEN  821 
0580  IF  PI >F  <L , 1 )THEN  600 
0590  P=1 

:  GOTO  630 

0600  IF  PI <F (L ,2 )THEN  620 
0610  P=0 

:  GOTO  630 

0620  P0=P1 -F (L , 1  ) 

:  P3=F  (L  ,2  )  -F  (L  ,  1  ) 

:  P=l-P0/P3 
0630  F1=P*B(L) 

!  FI (L ) =F1 

:  F 1 ( 46 ) =F 1 ( 46  >  +F 1 ( L ) 

:  V=B(L)-F1 
:  V  <  L  )  =V 

:  V (46 ) =V (46  >  +V (L ) 

0640  F0*F1/R3 
:  V0*V/B ( 60 ) 

:  CO (L ) =F0+V0 

:  v2*vo 

0650  SELECT  PRINT  <P0*>(130) 

:  IF  V0=0THEN  820 
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:  IF  L  >38 AND  L * 42THEN  8SO 
0660  IF  Z*= "G "THEN  780 
0665  IF  A7*="Y"  THEN  780 
0670  IF  R* (L )  =  “P “THEN  700 
0680  IF  R*  <L  >  =  "E "THEN  710 
0690  IF  RS ( L  >  =  ”S “THEN  720 
I  GOTO  780 

0700  Cl =P2*F2*B ( 44 ) 

:  GOTO  730 

0710  C1=E2*F2*B<44 ) 

:  GOTO  730 

0720  Cl =S2*F2*B  <44 ) 

0730  IF  Cl =0THEN  780 
:  Cl=Cl/30 

:  W4  = ( B ( 60 ) -Cl ) / ( <B  < 60  >  +  Cl ) /2  > 

:  IF  U)4  >  1THEN  W4  =  l 
:  IF  U)4 <  -  .  5THEN  UI4  =  -  .  5 
:  SELECT  PRINT  005(80) 

:  PRINT  "FOR  CELL  #  ";L;”,  THIS  COURSE  IS  CURRENTLY  OPERATING  AT* 

:  PRINT  100* < 1+U4) ; "  PERCENT  OF  ITS  RELATED  CAPACITY” 

:  FOR  M= 1  TO  10000 
:  NEXT  M 
:  PRINT  HEX  <  OA ) 

0740  IF  UI4 <  =  1  AND  W4>=-.5THEN  760 
:  SELECT  PRINT  005(80) 

:  PRINT  HEX ( 030A0A0A0A ) 

•.  PRINT  "CAUTION  )  '  *  PRESENT  WORK  UNITS  DEVIATE  FROM  CAPACITY* 

:  PRINT  "BY  MORE  THEN  MODEL  TOLERANCES  FOR  CELL  “:L 
:  PRINT  "REVISED  AVERAGE  COSTS  HAVE  BEEN  CONSTRAINED* 

!  PRINT  "BETWEEN  50%  AND  200%  OF  PRESENT  AVERAGE  COSTS* 

:  GOTO  760 

0750  C0(L)=F1/R3 
:  GOTO  780 

0760  A1  =C0  (L  )  *  ( 1+UI4  > 

:  U)9=F1/A1 
:  IF  R3<=W9THEN  750 
:  CO (L ) =A1 
:  GOTO  780 

0780  IF  A2*="Y"  THEN  820 

:  Y=L1  (L  ,1  >+Ll  (L  ,3>*B(47)«-L1  <L  .2>*B(60) 

0790  Y 1 =L 1 <L , 1 ) +L1 (L ,3)*B(47)+L1 (L  .2)*R3 
0800  AO =2* (Y-Yl ) / (Y+Yl  ) 

:  WO =2* ( B ( 60 ) -R3 ) / ( B ( 60 )  +R3 ) 

:  IF  W0=0  THEN  820 
:  IF  ABS(A0/W0X  =  1THEN  810 
0805  SELECT  P5 

1  FOR  M  =  1  TO  5 
:  PRINT  HEX (03) 

:  PRINT  AT (5,5) ; "WARNING ! M  COEFFICIENTS  CHOSEN  TO  MAKE  SCALE  ADJUSTMENTS *} AT . 
(7,5); "ARE  WRONG.  THE  COEFFICIENTS  CHOSEN  REFLECT " : AT (9 .5 ) t "UNACCEPTABLE 
CONOMIES  OF  SCALE.  SCALE  ADJUSTMENTS  WERE  OMITTED." 

;  PRINT  HEX (03) 

:  NEXT  M 
:  GOTO  820 
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0810  V2=V0* ( (2-AO ) / (2+AO  )  ) 

0820  C0(L)=C0(L)+ ( V2-V0 ) 

C0(L)=C0(L)*R3 
0821  NEXT  L 

:  FI <42 ) =B (42 ) 

:  FI (43 ) =B (43 ) 

:  F 1 (44 ) =B (44 ) 

:  Fl (45 ) =B  <45 ) 

;  Fl ( 60 ) =B ( 60 ) 

:  IF  C5*  = "Y “  THEN  GOSUB  '  95 
:  CO ( 60 ) =R3 
;  Z*="  " 

0823  IF  A7*="Y"  THEN  825 
:  SELECT  PRINT  005(80) 

:  PRINT  "CHECK  CAPACITIES  AND  PRESS  Ai  IV  KEY  TO  CONTINUE" 

:  KEYIN  ZO* 

0825  SELECT  PRINT  005(80) 

:  PRINT  HEX (03) ;STR(B1* ,22 , 1 1 ) ;  "  RMS  "  :STR (BIS  .8  .4  )  : "  D  .  CODE 

;STR(B1*,12,7) 

:  PRINT 

:  PRINT  "COURSE  ";N2*;“  DIV . " : D2S < I ) : "  DEPT.  " : Dlft < I ) : "  UIC  " : U i * 

0830  SELECT  PRINT  <P0*>(130) 

:  IF  A5*= "Y “THEN  841 
:  SELECT  PRINT  005(80) 

:  PRINT  HEX (03) 

0841  PRINT  HEX ( OE ) 

:  PRINT  STR  (Bl*  ,22 , 1 1  )  ;  "  RMS  “  :  S~R  ( BIS  .  8  .4  )  :  "  DISTR.CODE  “  :  STR  £,12,7 

) 

:  PRINT  HEX ( OAOE ) 

:  PRINT  "COURSE  ";N2*;"  DIV." ; D2* ( I ) : "  DEPT. " :Dl*(I ) : "  UIC  "  :  U 1  * 

:  GOSUB  '10 

0850  IF  A5*= "Y "THEN  860 
:  SELECT  PRINT  005(80) 

0860  PRINT  "END  OF  DATA  FOR  COURSE  " : N2* 

:  FOR  M=1  TO  10000 
:  NEXT  M 

:  IF  A5*="N"  THEN  880 


0880  GOSUB  '239(2) 

0890  IF  AB*="I "THEN  895 
:  R4=0 
:  R5=0 

0895  MAT  CO  =ZER 
:  MAT  R=ZER 
:  NEXT  I 
0900  M=1 

0910  MAT  SORTU1*  (  )TO  U)*,Gt() 
0920  MAT  MOVE  Ul*(),G*()TO  U* (  ) 
0930  FOR  Q=1T0  N1 

:  G (0  >  =VAL (G* (0 )  ,2) 

:  NEXT  O 

0950  FOR  I =1T0  N1 
:  K  =G  ( I ) 

:  SI  (M)=S1  (M)+UHK) 

:  S2(M)=S2(M)+R3(K) 

:  C(M)=C(M)+1 
0960  IF  I =N1THEN  9B0 
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:  it  U*‘  I  )=U*iI»l  1THEN  980 
0970  M=I  +  1 
096o  i  IE  *,T  I 

u350  SELECT  PRINT  005(80) 

:  PRINT  HE'*  (  03  > 

:  PRINT  "  ***  ACT IV I TV  LEVEL  ESTIf  1ATIQM  ***" 

:  A8*  =  “  " 

:  R4=0 

:  rs^o 

iOlO  PRINT  "ENTER  AVERAGE  ANNUAL  MILITARY  PAY  (ACTIVITY  LEVEL)  FOR  THE  YEAR" 

:  PRINT  "BEING  ESTIMATED.  PAY  SHOULD  BE  IN  FUTURE  DOLLARS" 

:  INPUT  "FOR  DATA  BASE  COMPUTATION  HIT  RETURN". R4 
:  ERROR  PRINT  HE*  <  Q70C0C / 

:  GOTO  1010 

1019  IF  R4=0  THEN  1030 
:  A8S="I" 

1020  PRINT  "ENTER  AVERAGE  ANNUAL  CIVILIAN  PAY  (ACTIVITY  LEVEL)  FOR  THE  YEAR" 

:  INPUT  "BEING  ESTIMATED.  PAY  SHOULD  BE  IN  FUTURE  DOLLARS". RS 

;  ERROR  PRINT  HE* (0700 
:  GOTO  1 020 

1030  DATA  LOAD  DC  #1  ,  F2 (  >  ,  R2* <  >  , L2 <  ) 

:  *4=0 

1040  FOP  I=1T0  HI 
:  K  =G  ( I  > 

:  IF  S 1  ( I  >  =0THEN  1380 
lOSO  STR(U*,1 ,4)=STR(U*(I ) ,1 ,4) 

:  STRfUS ,5 ,2 )  =  "F1  " 

:  STP(US,7,1 )=STR(U*(I) ,5,1 > 

1060  G03UB  ' 230 ( 2 , 5 , 6 , 2 , US ) 

1070  IF  Q*..  >"  "THEN  GOSUB  4160 
lOSO  GOSUB  '235(2) 

10  50  IF  Q*  ■•:">"  "THEN  4220 

1100  DATA  LOAD  DC  #6 ,B1S ,B2* ,B* t > 

1110  GOSUB  '35 

1129  SELECT  PRINT  009 > 80 » 

:  PRINT  HE*  <  03 ) ; STR i BBS , 1 ,28 ) ; "  RMS  " :STR (BIS .8  .4  )  :  "  D.CODE  ";STR< 

BIS, 12,7) 

;  PRINT 

:  print  "  uic  " ; us ( I > 

;  PRINT  HE* ! OA ) 
xl 30  IF  A4S=  "N "THEN  1160 
;  PRINT  HE*  <00 

:  INPUT  "WOULD  YOU  LIKE  TO  CHANGE  THE  ORIGINAL  COST  DATA  FOR  THIS  ACTIVITY  (V 

/N > " , A1S 

i  IF  A 1  *  " V "  AND  A1*<>"N"  THEN  1130 

:  IF  A1 t = "N "THEN  1160 
;  PRINT  HE*(0A0A! 
xi^O  PRINT  HEX  < OCOC  ) 

:  PRINT  "ENTER  THE  SUBSCRIPT  OF  THE  DATA  CELL  YOU  WISH  TO  CHANGE." 

:  INPUT  "IF  HO  MOPE, ENTER  0",N 
:  EpROP  PRINT  HEX (07) 

:  GOTO  1140 

i  14,9  ;.F  N  t  -  ABS  (  INT  <  H  )  )  THEN  1140 
:  IF  M • 0  OR  N >60  THEN  1140 
ii49  IF  N=0THEN  1160 

:  PRINTUSING  550 ,N ,B (N ) 

iioO  INPUT  "ENTER  REPLACEMENT  VALUL  (NO  COMMAS  OR  DECIMAL > " .8 <N > 
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:  ERROR  PRINT  HEX (0700 
:  GOTO  1150 

1155  GOTO  1140 

1160  I3=SS (I ) -Si (I ) 

:  IF  C5*  =  ,,Y‘‘  THEN  GOSUB  '  90 
:  MAT  F1=ZER 
:  MAT  V=ZER 
:  FOR  L=1  TO  9 

:  IF  L>2  AND  L<0  THEN  GOTO  1169 

1161  IF  PI >F (L , 1 )  THEN  1162 
:  P=1 

:  GOTO  1168 

1162  IF  PI <F  <L ,2 )  THEN  1164 
;  P=0 

:  GOTO  1168 

1164  P0=P1 -F (L , 1 ) 

:  P3=F(L ,2)-F(L , 1 > 

:  P=l- P0/P3 

1168  FI <L)=B(L)*P 

:  V  (L  )  =B  (L  )  -FI  (L  ) 

1169  NEXT  L 

!  FOR  L=3TO  41 
5  IF  L=80R  L=9THEN  1315 
:  IF  B (L ) =0THEN  1315 
:  IF  1300  THEN  1170 
:  CO(L)=B(L) 

:  GOTO  1315 

1170  IF  PI >F2 (L , 1 )THEN  1190 
1180  P=1 

!  GOTO  1220 

1190  IF  P 1 <F2 ( L  ,  2  ) THEN  1210 
1200  P=0 

:  GOTO  1220 

1210  P0=P1 -F2 (L  ,  1  ) 

:  P3-F2 (L ,2 ) -F2 (L  ,  1 ) 

:  P=l-P0/P3 
1220  FI  =P*B  (l_ ) 

:  F1(L)=F1 

:  FI (46 ) =F1 ( 46 )+Fl (L ) 

:  V=B (L ) -FI 
:  V  ( L  )  =V 

:  V (46 ) -V  <46 ) +V (L ) 

1230  F0-F1 / (B (60 )+ (S2 (I )  -SI  (I  )  )  > 

1240  VO=V/B ( 60 ) 

:  CO (L ) -FO+VO 

:  v2=vo 

1250  IF  VO=OTHEN  1310 
1270  IF  A2*= "Y "  THEN  1310 
:  Y  =L2 ( L , 1 ) +L2 ( L , 2 ) *B ( 60  ) 

1280  Y1 3L2 (L , 1 ) +L2 (L.2)*(B(60) +S2 ( I )  -SI ( I )  ) 
1290  AO-2* (Y-Yl ) / (Y+Yl  ) 

:  UJ0-2*I3/(B(60)+B(60)  +  I3) 

:  IF  ABS  <  AO /WO  >  <  =  1 THEN  1300 
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i SSn  SELECT  PS 

:  FOR  M=1  TO  S 
:  PRINT  HEX (03) 

:  PRINT  AT (S,5) ; "WARNING ' ! ‘  COEFFICIENTS  CHOSEN  TO  MAKE  SCALE  ADJUSTMENTS AT 
<  7 , S  > ;  "ARE  WRONG.  THE  COEFFICIENTS  CHOSEN  REFLECT “  : AT ( 9 . S >: “UNACCEP~ABLE  F 
CONOMIES  OF  SCALE.  SCALE  ADJUSTMENTS  WERE  OMITTED." 

;  PRINT  HEX (03) 

:  NEXT  M 
;  GOTO  1310 

1300  V2  =  '  (2-AO ) / (2+A0  )  ) 

1310  CO  v  '0  <L )+ (V2-V0  ) 

:  CO  1  '0 ( L ) * ( B ( 60 >+I3 ) 

13 i 3  NEx 

:  F i  ( a .  B  (42  ) 

:  F 1 ( 43 i =B (43 ) 

:  F l ( 44 ) =B ( 44 ) 

;  FI (45 ) =B (45 ) 

;  F 1  (  60  )  =B  (  60  ) 

:  IF  CS*  = " Y "  THEN  GOSUB  '  95 
:  CO ( 60 ) =B ( 60  )  +13 
1320  SELECT  PRINT  <P0*><130> 

;  IF  A5*  =  "Y “THEN  1330 
:  SELECT  PRINT  005(80) 

;  PRINT  HEX (03) 

1330  X'4=X4+1 

;  IF  C(X4)=0THEN  1330 

1331  PRINT  HEX(OE > ;STR(B2* ,1 ,22) ;  "  RMS  " : STR (Bl*  . B  .4  )  :  "  D . CODE  ”;STR(F) 

l*,12,7> 

:  PRINT  HEX ( OAOE ) 

:  PRINT  "ACTIVITY  UIC  ";U*(I);U  COURSES  INVOLVED  »":C(X4) 

:  G03UB  '10 

i 3*+0  IF  AS*  =  "Y "THEN  1350 
:  SELECT  PRINT  005(80) 

i350  PRINT  "END  OF  DATA  FOR  ACTIVITY  ":U*(I) 

I  FOR  M=1  TO  10000 
:  NEXT  M 

;  IF  A5*= "N "  THEN  1370 


1370  GOSUB  '239(2) 
i 375  GOSUB  25 
i.360  IF  A8*  =  "I"  THEN  1385 
:  R4=0 
:  RS=0 

1383  MAT  C0=ZER 
:  MAT  R=ZER 
:  NEXT  I 

i 390  FOR  L=1T0  N1 

:  STR (XI* (L ) ,1 , 5 ) =U1* (L ) 

:  STR  ( XI* (L  > ,6 ,2 ) =D1* (L ) 

:  NEXT  L 

INIT  ( 00  )G*  <  )  ,WS 
:  MAT  G=ZER 
:  MAT  SI =ZER 
:  MAT  S2=ZEP 

:  MAT  SORTX1* ( )TO  W*,G*<) 

1410  MAT  MOVE  Xl*( ) (6,2) ,G*< )TO  D* ( ) 
I43u  FOR  0=1T0  N1 

:  G(0)=VAL(G*(0>  ,2) 
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:  next  o 
1440  MAT  OZER 
:  M  =  1 

:  FOR  I  =  1T0  N1 
:  K=G  < I ) 

:  SI <M)=S1 (M)+W(K) 

:  S2  (M ) =SE <M ) +R3 ( K ) 

:  C(M)=C(M)+1 
1450  IF  I=N1THEN  1490 

1470  IF  U* ( I ) =U* <  I  + 1  ) AND  D* ( I >  =D* ( I  + 1 > THEN  1490 
1480  M=I+1 
1490  NEXT  I 

1500  SELECT  PRINT  005(80) 

:  PRINT  HEX (03) 

:  PRINT  “  ***  DEPARTMENT  LEVEL  ESTIMATION  ***" 

:  AB*=“  “ 

:  R4  =0 
:  R5=0 

1520  PRINT  "ENTER  AVERAGE  ANNUAL  MILITARY  PAY  (DEPARTMENT  LEVEL)  FOR  THE  '.'EAR 

:  PRINT  "BEING  ESTIMATED.  PAY  SHOULD  BE  IN  FUTURE  DOLLARS" 

:  INPUT  "FOR  DATA  BASE  COMPUTATION  HIT  RETURN" .R4 
:  ERROR  PRINT  HEX(070C0C> 

:  GOTO  1520 

1525  IF  R4=0  THEN  1535 
:  AB*="I" 

1530  PRINT  "ENTER  AVERAGE  ANNUAL  CIVILIAN  PAY  (DEPARTMENT  LEVEL)  FOR  THE  '-'EAR 

:  INPUT  “BEING  ESTIMATED.  PAY  SHOULD  BE  IN  FUTURE  DOLLARS" .RS 

:  ERROR  PRINT  HEX  (0700 
S  GOTO  1530 

1535  DATA  LOAD  DC  #1 ,F3< ) ,R3*( ) ,L3 (  ) 

:  X4=»0 

1540  FOR  I  =  1T0  N1 
:  K=G ( I ) 

:  IF  SI ( I ) =0THEN  1930 
1550  STR ( U* ,1,4) =STR ( U* ( I ) , 1 , 4 ) 

:  STR (U*. 5,2)= "FI" 

:  STR (U*. 7,1 )=STR(U*(I ) ,5,1 ) 

1560  GOSUB  '230 (2, 5, 6, 2, U* ) 

1570  IF  Q*<>"  "THEN  GOSUB  4180 
1580  GOSUB  '235(2) 

1590  IF  0*0"  "THEN  4220 
1600  GOSUB  '237(2) 

1610  IF  0*O“E"THEN  1620 
:  SELECT  P9 

:  PRINT  “THERE  IS  NO  DEPARTMENT  RECORD  FOR  DEPT.#":K 
:  SELECT  PO 
:  GOTO  1920 

1620  IF  0*0"  "THEN  4200 

1630  DATA  LOAD  DC  #6 ,B1* ,B2* ,B* ( ) 

1640  IF  STR(Bl*,12,2)ODl*(K)THEN  1600 
:  IF  STR (Bl* , 16 , 1 ) < > "3 "THEN  1600 
1650  GOSUB  '35 
1655  SELECT  PRINT  005(80) 

:  PRINT  HEX(03>;STR(B1», 22,11 ); "  RMS  " : STR (Bl* . 8 .4 > : " 

(Bl* ,12,7) 

:  PRINT 

:  PRINT  "  DEPT  " ; D* < I ) ; “  UIC  ":u*<l> 
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1660  IF  A4S» "N“THEN  1690 

:  INPUT  “WOULD  YOU  LIKE  TO  CHANGE  THE  ORIGINAL  COST  DATA  FOR  THIS  DEPARTMENT 
(Y/N) “ ,A1S  ' 

:  IF  Al*<> “Y “  AND  AlSO“N“  THEN  1660 
:  IF  A1S»“N‘' THEN  1690 
:  PRINT  HEX ( 0A0A ) 

1670  PRINT  HEX ( 0C0C ) 

:  PRINT  “ENTER  THE  SUBSCRIPT  OF  THE  DATA  CELL  YOU  WISH  TO  CHANCE.* 

:  INPUT  “IF  NO  MORE .ENTER  0"  ,N 
:  ERROR  PRINT  HEX (07) 

:  GOTO  1670 

1672  IF  NOABSdNT <N)  )  THEN  1670 
:  IF  N<0  OR  N>60  THEN  1670 
1675  IF  N=0THEN  570 

:  PRINTUSING  550 ,N ,B  <N  > 

1680  INPUT  "ENTER  REPLACEMENT  VALUE  (NO  COMMAS  OR  DECIMAL > " .B<N) 

:  ERROR  PRINT  HEX  (0700 
:  GOTO  1680 

1685  GOTO  1670 

1690  13=S2 ( I ) -SI ( I ) 

:  IF  C5S=“Y"  THEN  GOSUB  *  90 
:  MAT  FI =ZER 
:  MAT  V=ZER 
:  FOR  L=1  TO  9 

;  IF  L>a  AND  L  <8  THEN  GOTO  1699 

1691  IF  PI >F (L , 1 )  THEN  1692 
:  P=l 

;  GOTO  1698 

1692  IF  PI <F (L  ,2 )  THEN  1694 
:  P=0 

:  GOTO  1698 

1654  P0=P1-F(L,1) 

:  P3=F (L ,2 ) -F (L  ,  1  ) 

:  P=l-P0/P3 

1698  FI (L)=B(L)*P 

:  V  <  L  >  “B  <  L  )  -F 1  ( L  ) 

1699  NEXT  L 

:  FOR  L=3T0  41 
:  IF  L=80R  L*9THEN  1B65 
:  IF  B(L)*0THEN  1B65 
:  IF  1300  THEN  1710 
:  CO (L ) *B(L  ) 

:  GOTO  1865 

1710  IF  PI >F3(L , 1 )THEN  1730 
1720  P=1 

:  GOTO  1760 

1730  IF  PI <F3(L ,2 )THEN  1750 
1740  P*0 

:  GOTO  1760 

1750  P0=P1 -F3 (L  < 1 ) 

:  P3=F3 (L  ,2 ) -F3  <L , 1 ) 

:  P-1-P0/P3 
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1760  F 1 =  P*B (L ) 

:  F1(L)=F1 

:  FI (46)=F1 <46)+Fl <L) 

:  V=B(L)-F1 
:  V(L)=V 

:  V(46)=V<46)+V(L) 

1770  F0=F1/(B(60)+I3) 

1790  VO=V/B (60 ) 

:  CO (L ) =FO+VO 
:  V2=V0 

1800  IF  V0=0THEN  1860 
1820  IF  A2*=“Y"  THEN  1860 
:  Y  =L3 ( L , 1 ) +L3  <  L , 2 ) *B ( 60 ) 

1830  Y1 =L3 (L , 1 ) +L3 (L ,2>*<B(60)+I3) 

1840  A0=2* (Y-Yl ) / (Y+Yl > 

:  U)0=2*I3/  (B  ( 60  )+B  ( 60 ) +13 ) 

:  IF  ABS  ( AO  /WO  )  <  =  1  THEN  1850 
1845  SELECT  PS 
:  FOR  M=1  TO  5 
:  PRINT  HEX  <  03 ) 

:  PRINT  AT (5,5 ); “WARNING M !  COEFFICIENTS  CHOSEN  TO  MAKE  SCALE  ADJUSTMENT 
(7,5); “ARE  WRONG .  THE  COEFFI CIENTS  CHOSEN  REFLECT " : AT  <  9 . 5 ) : "UNACCEP'A 
CONOMIES  OF  SCALE .  SCALE  ADJUSTMENTS  WERE  OMITTED . “ 

:  PRINT  HEX (03) 

:  NEXT  M 
:  GOTO  1860 

1850  V2=V0* ( (2-AO ) / (2+AO ) ) 

1860  CO (L ) =C0  <L )  + (V2-V0 ) 

:  CO (L ) =C0 (L ) * (B ( 60 ) +13 ) 

1865  NEXT  L 

:  F 1 ( 42 ) =B ( 42 ) 

:  FI  (43  )  *B  ( 43  ) 

:  F 1  ( 44  )  »B  ( 44  ) 

:  Fl(45)-B(45) 

:  FI < 60 ) “B <60 ) 

:  IF  C5*-"Y“  THEN  GOSUB  '  95 
:  CO  ( 60  )  *B  <  60  )  +13 
1870  SELECT  PRINT  <P0*>(130) 

:  IF  AS* ■"Y“ THEN  1880 
:  SELECT  PRINT  005(80) 

:  PRINT  HEX (03) 

1880  X4-X4+1 
:  IF  C(X4)=0THEN  1880 

1881  PRINT  HEX(OE) ;STR(B1*, 22,11 ); “  RMS  " :STR (Bl* .8 .4 ) ; ”  D.CODE  ";STR( 

Bl* , IS ,7 ) 

:  PRINT  HEX ( OAOE ) 

:  PRINT  "DEPARTMENT  " ;D*(I);"  UIC” ; U* < I ) .C (X4 ) : "  COURSES" 

:  GOSUB  '10 

1890  IF  A5**"Y"THEN  1900 
:  SELECT  PRINT  005(80) 

1900  PRINT  “END  OF  DATA  FOR  DEPARTMENT  * :D*(I) 

;  FOR  M-l  TO  10000 
:  NEXT  M 

:  IF  A5*“"N“  THEN  1920 

1910  PRINT  "=a=*=>==*==========*K*==a=»«»*===== »■=*«=•«=»»»■*»■■»»**»===========* 


1920  GOSUB  '239(2) 

1930  IF  A8*="I "  THEN  1935 
:  R4-0 
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:  R5=0 

1935  MAT  CO=ZER 
:  MAT  R=ZER 
:  NEXT  I 

1940  FOR  L=1T0  N1 

:  STR(X*(L> ,1 ,5)=U1*(L> 

:  STR<X*(L) ,6,S)=D1*<L) 

:  STR(X*(L) ,B,2)=D2*(L> 

:  NEXT  L 

1950  INIT(00)G*< ) ,W* 

:  MAT  G=ZER 
;  MAT  S1=ZER 
:  MAT  Sa=ZER 

:  MAT  SQRTX* (  )TO  U)*,G*<) 

:  MAT  MOVE  X*< ) (8,2) ,G*( )TO  DO* < > 

1960  FOR  0=1T0  N1 

;  G ( 0 ) =VAL ( G* ( O ) , 2 ) 

:  NEXT  O 
1970  MAT  C=ZER 
:  M  =  1 

:  FOR  I =1T0  N1 
:  K=G(I) 

:  Si  (M)  =S1  (M)+UMK) 

:  52 (M ) =S2 (M ) +R3  <  K ) 

:  ClM)=C(M)+l 
1980  IF  I=N1THEN  2020 

1990  IF  U*(I)=U*<I+1 >AND  D* < I ) =D* ( 1+1 )THEN  2000 
:  GOTO  2010 

2000  IF  DO*  < I ) =D0* ( 1  +  1 )THEN  2020 
2010  f1=I  +  l 
2020  NEXT  I 

2030  SELECT  PRINT  005(80) 

:  PRINT  HEX (03) 

:  PRINT  “  ***  DIVISION  LEVEL  ESTIMATION  ***" 

:  A8*="  “ 

:  R4=0 
:  R5=0 

2050  PRINT  "ENTER  AVERAGE  ANNUAL  MILITARY  PAY  (DIVISION  LEVEL)  FOR  THE  YEAR" 

:  PRINT  "BEING  ESTIMATED.  PAY  SHOULD  BE  IN  FUTURE  DOLLARS" 

:  INPUT  "FOR  DATA  BASE  COMPUTATION  HIT  RETURN" .R4 
:  ERROR  PRINT  HEX(070C0C) 

:  GOTO  2050 

2055  IF  R4=0  THEN  2070 
:  A8*= " I “ 

2060  PRINT  "ENTER  AVERAGE  ANNUAL  CIVILIAN  PAY  (DIVISION  LEVEL)  FOR  THE  YEAR* 

:  I iNPUT  "BEING  ESTIMATED.  PAY  SHOULD  BE  IN  FUTURE  DOLLARS" .RS 

:  ERROR  PRINT  HEX  (0700 
:  GOTO  2060 

2070  DATA  LOAD  DC  #1 ,F4 ( ) ,R4* ( ) ,L4 ( ) 

:  X4=0 

2080  FOR  I*1T0  N1 

:  k*01I) 

;  IF  SI < I ) “OTHEN  2450 
2085  STR(U*,1  ,4)»STR(U*(1 ) ,1 ,4) 

;  ST  R  <  U* , 5  , 2 )  =  " F 1 “ 

:  STR (U* ,7,1) *STR (U* ( I ) ,5 , 1 ) 

2090  GOSUB  '230 (2 ,5 ,6 ,2 ,U*  > 
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2100  IF  Q*<>"  "THEN  GOSUB  4180 
2110  GOSUB  '235(2) 

2120  IF  QSO"  "THEN  4220 
2130  GOSUB  '237(2) 

2140  IF  QS  <  > "E “THEN  2150 
:  SELECT  P9 

:  PRINT  "THERE  IS  NO  COST  RECORD  FOR  DIVISION  #“:K 
:  SELECT  PO 
:  GOTO  2440 

2150  IF  QS<>“  "THEN  4200 

2160  DATA  LOAD  DC  #6 ,B1S ,B2S  ,BS < > 

2170  IF  STR(B1S,12,2)<>D1S(K)THEN  2130 
:  IF  ST  R(B1S,14,2)<  >D2S ( K ) THEN  2130 
:  IF  STR (BIS ,16,1 ) < > “5 “THEN  2130 
2180  GOSUB  '35 
2185  SELECT  PRINT  005(80) 

:  PRINT  HEX ( 03 ) ; STR (BIS ,22 ,11);  "  RMS  "  : STR (BIS .8,4):"  D.CODE  ";STR 

BIS, 12, 7) 

:  PRINT 

:  PRINT  "  Div . " ;  DOS  <  I  > ; "  DEPT  " :  DS  ( I ) :  “  UIC  ":us<i> 

:  PRINT  HEX ( OA ) 

2190  PRINT  HEX(OC) 

:  IF  A4S= ”N "THEN  2220 

:  INPUT  "WOULD  YOU  LIKE  TO  CHANGE  THE  ORIGINAL  COST  DATA  FOR  THIS  DIVISION 
Y/N)  ”  , A1S 

I  IF  A1SO  "Y“  AND  AlSO"N"  THEN  2190 
:  IF  A1S= "N "THEN  2220 
:  PRINT  HEX ( OAOA ) 

2200  PRINT  HEX ( OCOC  ) 

I  PRINT  "ENTER  THE  SUBSCRIPT  OF  THE  DATA  CELL  YOU  WISH  TO  CHANGE." 

J  INPUT  "IF  NO  MORE, ENTER  0",N 
IF  N=OTHEN  2220 
:  ERROR  PRINT  HEX (07) 

J  GOTO  2200 

2202  IF  NOABS(INT(N)  )  THEN  2200 
:  IF  N<0  OR  N>60  THEN  2200 
2205  IF  N=0THEN  2220 

:  PRINTUSING  550,N,B(N> 

2210  INPUT  "ENTER  REPLACEMENT  VALUE  (NO  COMMAS  OR  DECIMAL >" -B (N ) 

:  ERROR  PRINT  HEX  <0700 
:  GOTO  2210 

2215  GOTO  2200 

2220  I3*S2 ( I ) -SI ( I ) 

:  IF  C5S  =  "Y 11  THEN  GOSUB  90 
:  MAT  F 1 =ZER 
;  MAT  V=ZER 
:  FOR  L=1  TO  9 

:  IF  L>2  AND  L<8  THEN  GOTO  2229 

2221  IF  PI >F (L , 1 )  THEN  2222 
:  P  =  1 

:  GOTO  2228 

2222  IF  PI <F (L ,2 )  THEN  2224 
:  P=0 

:  GOTO  2228 
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tct4  PG=Fl  -F  (L  ,  1  ) 

:  P3=F <L  ,2 >-F <L  ,  1  > 

:  P=l-P0/P3 
cd£6  F  i  ( L  > =B ( L  )  *  P 
:  V  ( L  )  =B  ( L  )  -F 1  ( L  ) 
t£E5  NEXT  L 

:  FOR  L=3TQ  41 
:  IF  L=80R  L=9THEH  2385 
:  IF  B(L)=OTHEN  2385 
:  IF  13'.  >0  THEN  2240 
:  i,0  (L  >  =B  (L  > 

:  GOTO  £385 

dd  +  v  IF  Pi -F4 (L , 1 'THEN  £260 
ccBO  P=1 

:  GOTO  £290 

CE6G  IF  P l i F4  < L , 2 ) THEN  2280 
dd  ,'G  P=0 

:  GOTO  2290 

^c6C  pG=P1-F4(L,1 ) 

;  P3=F4(L,2)-F4(L,1 ) 

:  P=l-P0/P3 
c250  Fi=P*B!L) 

:  F 1  i  L  )  -F 1 

;  F  i ( 46  )  =F1 (46 )  +F1 (L ) 

:  0=B (L ) -FI 

:  v  <  l ) =v 

:  v>46i=V(46)+V<L) 
c300  F0=F1/(B(60)+I3> 
dilO  00=0/8(60' 

:  CGiL)=F0+V0 
:  oa=vo 

c3£0  IF  VO  =0THEN  2380 
di»u  IF  A2t="Y"  THEN  2380 

:  v  =L4 ( L  ,  1  )  +L4 ( L , 2 ' *B ( 60 ) 

23=0  v l =L4 ( L ,1 ) +L4 (L ,2)*<B(60)+I3) 
c360  AO  =2* (V -VI ) / (V+Yl ' 

:  ERROR  GOTO  2380 
EdtoS  WO =£* I 3 / ( B ( 60 ) +B ( 60 ) +13 ) 

:  IF  ABStAO/WO) <=1  THEN  2370 
£_-.o7  SELECT  P5 

:  FOR  M=1  TO  5 
:  PR  1 1  IT  HEX  (03) 

:  PRINT  AT (5 ,5 >; "WARNING m  i  COEFFICIENTS  CHOSEN  TO  MAKE  SCALE  ADJUSTM 
‘7,5/;  "ARE  WRONG.  THE  COEFFICIENTS  CHOSEN  REFLECT " ; AT ( 9 . 5 ) : "UNACCE 
COnOMIES  OF  SCALE.  SCALE  ADJUSTMENTS  WERE  OMITTED." 

:  PRINT  HEX (03) 

:  NE-T  M 
;  GOTO  £380 

£i  <0  ‘02=00*  <  (2 -AO  )  /  (2+AO  )  ) 

2.360  CO  <L  i  =C0  (L  )+  (V2-V0  ) 

;  _0 < l > =C0 ( L ) *R3 
c..ri65  ( it 1  T  L 

:  Fi ) 42  i  =B (42 ) 

:  F  x i 43 ' =6 ( 43  > 

;  ri,44l=B(4«) 

:  Fi  “+5  i=B(45> 
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:  PI ( 60 ) =B ( 60  ) 

:  IF  C5S="Y"  THEN  GOSUB  95 
:  CO l 60 ) =B ( 60 ) +13 
2390  M-0 

:  SELECT  PRINT  <P0*X130) 

:  IF  A5*= "Y “THEN  2400 
:  SELECT  PRINT  005(60) 

:  PRINT  HEX (03) 

2400  X4=X4+1 

:  IF  C(X4)=0THEN  2400 

2401  PRINT  HEX(0E ) ;STR(B1S ,22,11 >; "  RHS  “ :STR (Bl* .8 .4 ) ; "  D.COBE  “;STR; 

Bl* ,12,7) 

:  PRINT  HEX ( OAOE ) 

:  PRINT  "DIVISION  “;D0*<I>;“  DEP~  .  ”  :D*  (I  )  :  "  UIC  "  :U*(I )  ,C<  >:4  ;  "  COUPS 

ES“ 

:  GOSUB  '10 

2410  IF  A5S= “Y "THEN  2420 
J  SELECT  PRINT  005(80) 

2420  PRINT  “END  OF  DATA  FOR  DIVISION  ":D0*(I) 

1  FOR  A2=l  TO  10000 
!  NEXT  A2 

l  IF  AS**"N"  THEN  2440 

2440  GOSUB  '239(2) 

2450  IF  A8S=“I"  THEN  2455 
:  R4=0 
R5=0 

2455  MAT  C0=ZER 
*.  MAT  R=ZER 
!  NEXT  I 

2460  SELECT  PRINT  005 (BO) 

:  PRINT  "WOULD  YOU  LIKE  A  BREAKDOWN  OF  THE  TOTAL  COST  CHANGES’ 

:  INPUT  "BY  CATEGORY  FOR  EACH  ACTIVITY  (V/N)“.A1* 

:  IF  Al*  <  > "Y ”  AND  Al*<> "N"  THEN  2460 
2470  IF  A1*="N“THEN  2541 
2480  SELECT  PRINT  <P0*X132> 

:  PRINT  HEX ( OCOE ) 

:  PRINT  "  *****  COST  CHANGES  BY  ACTIVITY  ***»*" 

2490  FOR  X=1T0  60 
:  FOR  J=1  TO  10 
:  IF  A2 ( J ,X ) < >0  THEN  2495 
:  NEXT  J 
:  GOTO  2540 

2495  PRINT  "ACTIVITY  ID=";KS(X) 

:  PRINT  HEX ( OA ) 

:  PRINTUSING  3935 
:  PRINTUSING  3936 

2500  PRINTUSING  3940 , A1 ( 1 ,X ) ,A1 ( 1 , X > +A2 ; 1 .X  )  .A2 ( 1 .X ) 

:  PRINTUSING  3950 ,A1 (2 ,X ) ,A1 (2 ,X)+A2 :2 .X) .A2 (2 .X ) 

:  PRINTUSING  3960, A1 (3,X) ,A1 (3 ,X > +A2 < 3 .X ) .A2(3.X> 

I  PRINTUSING  3970 ,A1 (4 ,X ) ,A1 (4,X)+A2 :4.X) .A2(4 .X) 

:  PRINTUSING  3980  ,A1(5,X),A1(5,X)  +A2  >'  5  .X  )  .  A2  ( 5  .X  ) 

:  PRINTUSING  3990 ,A1 (6,X > ,A1 (6 ,X)+A2 :&.X) .A2(6.X> 

2505  PRINTUSING  4000 ,A1 (7 ,X ) , A1 (7 , X ) +A2 : 7 .X ) . A2 (7 .X > 

:  PRINTUSING  4005 ,A1(B,X),A1(8,X>  +A2 .8 -X ) . A2 ( 8 .X ) 

2506  PRINTUSING  4006 

:  PRINTUSING  4060 ,A1 <3,X )+Al (4 ,X )+Al  :5.X)+A1 (6.X )+Al (7 . X  > +A1 < 3 . X )  , A1 ; 3  ,X ; * 

4  ,X  )  +A1  (5  ,X  )+Al  <  6  ,  X  )  +  A 1  ( 7  ,  X  )  ♦  A 1  <B  .  X  1  +A2  (3  .X  )  +A2  (4  .X  ) +A2  (5  .X  >  +A§I6  ,  X  ,  -  A2  i 
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)  +A2  <  8  ,X  )  ,  A8  (3  ,X  )  +A2  (4  ,X  )  +A2  (  5  .X  )  +A2  ( 6  ,X  )  +A2  (7  .X  )  +A2  ( 8  .X ) 

:  PRINT  HEX ( OA ) 

2510  PRINTUSING  4007 
:  PRINTUSING  400B 

:  PRINTUSING  4010 , A1 (3 ,X ) +A1 ( 8 , X ) .  A1  < 3  .X  ) +A1  <  8  .X  >+A2  <3  .X  > +A2  <  8  .X  > ,A8<3,X>+AE< 
8  ,X  ) 

:  PRINTUSING  4020 ,A1 <9,X) ,A1 (9,X) +A2 ( 9  .X ) . A2 ( 9 .X ) 

2515  PRINTUSING  4030 , A1 < 1 0 ,X > , A1 < 1 0 .X > +A2 ( 10 .X > .A2 < 10 .X > 

:  PRINTUSING  4006 

:  PRINTUSING  4060, A1 (3 ,X)+A1 (8 ,X)+A1 < 9 .X ) +A1 < 10 .X >  .A1 <3.X)+A1 ( 8 .X >+A2 C3 ,X >+A? 
v 8 ,X )+Al <9,X)+A2<9,X)+A1 <10 ,X  >+A2<10 .X) . A2 <3 .X ) +A2 <8 .X >+A2 <9 .X > +A2 (10 ,X > 
2520  PRINT  HEX  <  OA ) 

PRINT  11  »=========*==***=*=**=*=»===«=*»=»**=■«■*■»■*■■■■**■*■■*■■■»■*■■•»** 


25*0  NEXT  X 
2541  FOR  W  =  1T0  10 
:  FOR  H=1T0  60 
:  0  ( 2  ,  W  )  =0  <  2  ,  Ul )  +  A2  ( U) ,  H  ) 

:  NEXT  H 
:  NEXT  Ul 

2550  INPUT  "WOULD  VOU  LIKE  A  BREAKDOWN  OF  THE  OVERALL  TOTAL  COST  CHANGES  BY  CATE 

GORY  <  Y  /N  )  " ,A6* 

:  IF  A6SO"Y"  AND  A6*<>"N"  THEN  2550 
2560  IF  A6*= "N “THEN  2630 
2570  SELECT  PRINT  <P0*><130> 

:  IF  A1*=“N“  THEN  2575 
:  PRINT  HEX ( OC ) 

2575  PRINT  HEX ( 0A0A0E ) , "  *****  TOTAL  COST  CHANGES  BY  CATEGORY  **»**» 

2580  PRINT  HEX  <  OA ) 

I  PRINTUSING  3935 
:  PRINTUSING  3936 

I  PRINTUSING  3940 .O  < 1 , 1 ) .O  < 1 , 1 ) +0  <2 , 1 ) .0  <2 , 1 > 

:  PRINTUSING  3950,0(1,2) ,0(1, 2)+0<2. 2) ,0<2. 2) 

:  PRINTUSING  3960  ,0(1 ,3) ,0(1 ,3) +0 <2.3 ) .0 <2.3 ) 

:  PRINTUSING  3970,0(1 ,4) ,0(1 ,4)+0<2. 4) .0(2.4) 

:  PRINTUSING  3980,0(1 ,5) ,0(1 ,5>+0(2. 5) .0(2.5) 

:  PRINTUSING  3990,0(1 ,6) ,0(1 , 6)40(2. 6) .0(2.6) 

2590  PRINTUSING  4000 ,0 ( 1 ,7 ) ,0 ( 1 ,7 ) +0 (2 .7 ) .0 (2  .7 ) 

:  PRINTUSING  4005,0(1 ,8 ) ,0(1 ,8 >+0(2.8 > .0(2.8 ) 

:  PRINTUSING  4006 

:  PRINTUSING  4060 ,0<1,3)+0<1,4>+0<1.5>+0<1.6>+0<1.7)+0<1.8).0<1.3>+0(1,4>+0<1 
,  5  >  +0  ( 1  , 6  )  +0  ( 1  ,7  )  +0  <  1  , 8  )  +0  (2 , 3  )  +0  (2  .4  )  -t-0  (2 . 5 )  +0(2 .6) +0(2, 7)  *0(2, 8)  ,0(2,3) 
<2, 4) +0(2, 5) +0(2, 6) +0(2, 7) +0(2. 8 ) 

2595  PRINT  HEX < OA ) 

:  PRINTUSING  4007 
:  PRINTUSING  4008 

2600  PRINTUSING  4010 ,0 ( 1 ,3 ) +0 < 1 , 8 ) .0 ( 1 .3 ) +0 < 1 . 8 ) +0 (2 .3 >+0 <2 .8 ) .0(2 .3 ) +0(2 ,8 ) 

:  PRINTUSING  4020  ,0(1  ,9)  ,0<1  ,  9 )  ■(  O  ( 2 . 9  >  .0(2.9) 

:  PRINTUSING  4030,0(1,10) ,0(1, 10)+O<2. 10), 0(2. 10) 

2605  PRINTUSING  4006 

:  PRINTUSING  4060,0(1 ,3) +0(1 ,8) +0(1 .9)+0(1.10) .0(1 .3 )+0 (1.8  >+0 (2 . 3 )+D(2  B>+0< 
i  ,9) +0(2,9) +0(1 ,10) +0(2, 10) ,0(2. 3) +0(2. 8) +0(2. 9) +0(2. 10) 

2620  PRINT  HEX ( OA ) 

:  PRINT  =  =  =  =  =  =  =  *  =  *  =  =  =  *  =  =  = 


2630  GQSUB  '239(1) 

:  COM  CLEAR 

:  LOAD  DC  T#0 , "COSTMENU"0 ,9999  DEG  100 


2650  DEFFN '20 


r 
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(  2720  UNPACK <###### >STR< A* <Q) ,70,3)TQ  F2 

|  2730  UNPACK <###### )STR< A* (Q) ,73,3) TO  P2 

j  2740  UNPACK <###### >STR< A* <Q) ,76,3) TO  E2 

|  2750  UNPACK (###### )BTR( A* (Q) ,79,3) TO  S2 

S  2760  UNPACK (#4# . >STR ( A* <Q > , 82 ,2 )TO  X3 

:  2770  UNPACK ( ### . )STR ( A* (Q ) ,  84  , 2 )TO  X5 

[  2780  X3=X3/100 

:  xs=xs/ioo 

2790  C=VAL(STR(A*(Q) ,13,2) ,2) 

[  2800  RETURN 

i 

I  2820  DEFFN'35 

i  2830  Jl=l 

[  2840  FOR  M  =  lTO  4 

I  :  FOR  E=1T0  71 STEP  5 

|  2850  UNPACK <♦######### >STR (B* (H ) ,E ,5 >TQ  B(J1> 

;  :  B  <  J 1 ) =ABS ( B  ( J 1 )  ) 

2860  J1=J1+1 

■  :  NEXT  E 

i  :  NEXT  M 

2870  B(44)=.7*B<44) 

2880  RETURN 

2900  DEFFN'10 

2910  R1,R2=0 

:  IF  B ( 1 ) =0AND  B(8)=0THEN  2911 
:  R1 =2080* (B(3)+B(10))/(B<1) +B ( 8 ) ) 

2911  IF  B (2 ) =0AND  B ( 9 ) =0THEN  2920 

:  R2=2080* (B '4 ) +B ( 1 1 ) ) / (B (2 ) +B ( 9 ) ) 

2920  FOR  0=1  TO  D1 

•.  R1=R1  +  (I1/12>*R1 
:  NEXT  O 

2940  RESTORE  LINE  2960 
2950  FOR  M=lTO  12 
:  READ  X 

2960  DATA  3,10,15,17,21,23,25,31,30.36.39.41 
2965  IF  R4=0  THEN  R4=R1 
:  IF  CO  <X ) =0THEN  3020 
:  IF  R4<>0  THEN  2970 

2967  INPUT  "  INSUFFICIENT  DATA.  PLEASE  ENTER  ORIGINAL  AVG .  MILITARY  PAY".R1 
:  ERROR  PRINT  HEX ( O7O3OAOAOA0A ) 

:  GOTO  2967 

2968  GOTO  2920 

f.  2970  B1=C0<X)/R1 

i  :  IF  A34= ”Y "THEN  3000 

I  :  IF  B <X ) <R4  THEN  3000 

:  IF  B1 >0AND  B1 <1THEN  3010 
2990  CO ( X ) =R4*R0UND (B1 , 0 ) 

:  GOTO  3020  I 

3000  CO ( X ) =R4*B1  I 

:  GOTO  3020  1 


3010  CO ( X ) =R4 
3020  NEXT  M 
3025  FOR  0=1  TO  D1 

:  R2=R2+(I2/12)*R2 
:  NEXT  O 
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3030  FOR  M  =  1 TO  3 
:  READ  X 

3035  IF  R5=0THEN  R5=R2 

:  IF  CO ( X ) “OTHEN  3100 
:  IF  RSOO  THEN  3050 

3037  INPUT  ”  INSUFFICIENT  DATA.  PLEASE  ENTER  ORIGINAL  AVG .  CIVILIAN  PAY " , RS 
:  ERROR  PRINT  HEX  <  0703OAOAOAOA ) 

:  GOTO  3037 

3036  RESTORE  LINE  3040 
:  GOTO  3025 

3040  DATA  4,11,26 
3050  B2=*C0(X)/R2 

:  IF  A3*= "Y “THEN  3080 
:  IF  B ( X ) <R5THEN  3080 
30o0  IF  B2  >0AND  B2<1THEN  3090 
3070  C0lX)=R5*ROUND<B2,0) 

:  GOTO  3100 

3080  CO ( X ) =R5*B2 
:  GOTO  3100 

3090  CO ( X ) =R5 
3100  NEXT  M 

3115  IF  CO ( 60 ) <  >0THEN  3120 
:  CO ( 42  )  =0 
:  CO ( 43 ) =0 
:  CO ( 45  )  *0 
:  GOTO  3200 

3130  IF  B(43)=0THEN  3130 
:  CO ( 43 ) =X2 
:  GOTO  3140 

3 1 30  CO  <  43 ) =0 
o>140  IF  B  (44  )  =0THEN  3150 
:  CO  <  44 ) =B ( 44 ) 

:  GOTO  3160 

3150  CO ( 44 ) =0 
3160  B (44 ) =X9 

:  IF  B ( 45  >  =0THEN  3170 
:  CO (45 ) =X1 *X3 
:  GOTO  3180 

3170  CO (45 ) =0 
3180  IF  B ( 42 ) =0THEN  3190 
:  CO (42 ) =X7*C0 (45 ) 

:  GOTO  3200 

3190  CO (42 ) =0 
3200  FOR  M=1T0  18 
:  READ  X 

3220  DATA  3,10,15,17,21,23,25,31,30.36.39,41 
3230  FOR  0=1T0  P1+D3 

:  CO ( X ) =C0 (X ) + ( I 1 / 12*C0 (X ) ) 

:  B!X)=B(X)  +  (I1/12>  *B (X ) 

3240  NEXT  0 
:  NEXT  M 


i 
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3350  FOR  M=1TQ  35 
:  READ  X 

3360  DATA  4,11, 36 ,5,13, 37 ,6,13, 38 ,7,14.-6.18. 33 . 34 . 39 . 33 . 33 .13.30. 34 , 35 , 37  38 , 40 

3370  FOR  0=1T0  P1+D3 

:  CO (X >=C0 (X >+ <  (I3/13)*C0(X) ) 

:  B(X)=B(X)+<I2/1E)*B<X) 

3380  NEXT  0 
:  NEXT  M 

3300  FOR  M=1T0  8STEP  7 

:  IF  B  <M ) =OOR  B (M+2 ) =0THEN  3310 
:  CO (M ) =C0 (M+3 >/(B(M+2)/B(M) ) 

:  IF  B  <M+ 1 ) =OOR  B (M+3 ) =0THEN  3330 
:  CO (M+l )=C0  <M+3> / (B (M+3 ) /B (M+l  > ) 

:  GOTO  3330 

3310  CO ( M ) =0 
:  GOTO  3330 

3330  CO (M+l ) =0 
3330  NEXT  M 

3335  SELECT  PRINT  005(80) 

:  PRINT  HEX ( OAOA ) 

3337  PRINT  HEX (07) 

3340  PRINT  HEX ( OCOC ) 

:  PRINT  "FOR  A  SPOT  CHECK,  ENTER  THE  SUBSCRIPT  OF  THE  COST  CELL  YOU  WANT  PRIN 
TED .  " 

:  INPUT  "IF  NO  MORE,  ENTER  0“,L 
:  ERROR  PRINT  HEX ( 07 ) 

:  GOTO  3340 

3343  IF  L  <  >  ABS ( INT ( L ) )  THEN  3337 
:  IF  L <0  OR  L >60  THEN  3337 
3345  IF  L=0  THEN  3380 
3350  SELECT  PRINT  005(80) 

3360  PRINTUSING  "CURRENT  VALUE  =  B (L ) 

3370  PRINTUSING  "REVISED  VALUE  =  -#.##»  *##.###.##". CO (L ) 

:  PRINT  HEX (OCOC) 

:  GOTO  3340 

3380  PRINT  HEX ( 0A0A0A ) 

3390  PRINT  HEX ( OC ) 

:  INPUT  "WOULD  YOU  LIKE  DIAGNOSTIC  INFORMATION" .  Al® 

:  IF  A1*<>"Y"  AND  A1*<>"N"  THEN  3390 
:  IF  Al*= "Y "THEN  GOSUB  '40 
:  PRINT  HEX ( 0A0A0A ) 

3400  PRINT  HEX (OCOC) 

:  PRINT  "DO  YOU  WANT  TO  OVERRIDE  ANY  CELL  VALUE  ESTIMATED" 

:  INPUT  “FROM  THIS  MODEL  (DIRECT  INPUTS).  Y/N  ",A1* 

:  IF  Al*<  > "Y "  AND  A1*<>"N"  THEN  3400 
3410  IF  Al*= "N "THEN  3510 
:  PRINT  HEX (OAOA) 

3440  PRINT  HEX (OCOC) 

:  PRINT  "ENTER  SUBSCRIPT  OF  CELL  YOU  WISH  TO  CHANGE" 

:  INPUT  "IF  NO  MORE,  ENTER  0“,S 
:  ERROR  PRINT  HEX (07) 

:  GOTO  3440 

3445  IF  S <  >ABS ( INT (S  )  )  THEN  3440 
:  IF  S<0  OR  S>60  THEN  3440 
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34-47  IF  S  =  0  THEN  3510 

3450  PRINT  "FOR  COST  CELL  #";S 

3460  PRINTUSING  "THE  ORIGINAL  VALUE  WAS  -#.###.###. ###.##" ,B (S ) 

3470  PRINTUSING  "THE  ESTIMATED  VALUE  IS  NOW  -#.###.###.###.##" .CO <S ) 

3480  INPUT  "ENTER  REPLACEMENT  VALUE  (NO  COMMAS  OR  DOLLAR  SIGNS  >“.R 
:  ERROR  PRINT  HEX  (0700 
:  GOTO  3480 

3490  CO  <  S i =R 

:  PRINT  "  CHANGE  COMPLETED' 

:  FOR  A2  =  l  TO  1000 
:  NEXT  A2 

:  PRINT  HEX ( OCOCOCOCOC ) 

:  GOTO  3440 

3510  FOR  L=1T0  60 

:  14  (L  )  =C0  (L  )  -B  <L  ) 

3520  NEXT  L 

3540  IF  A5*= "N "THEN  3730 
3550  SELECT  PRINT  <P0*>(130) 

:  PRINT  HEX ( OAOE ) 

:  PRINT  "  *****  SUMMARV  OF  COST  ESTIMATES  *»***" 

:  PRINT  HEX ( OA ) 

3560  PRINT  “  SOURCE  CURRENT  REVISED  !  SOURCE 

CURRENT  REVISED” 

3562  PRINT  "  ======  =======  =======  \  ====== 


3565  PRINT  "  !  " 

'■  3610  FOR  N3  =  l  TO  34 
:  N4=N3+34 
:  N5=N4 

:  IF  N4=46  THEN  N5=60 
:  IF  N3  <3  OR  N3=8  OR  N3=9  THEN  3630 
:  IF  N3>17  THEN  3630 

3615  PRINTUSING  3660 ,A0*(N3) ,N3,A9*(N3)  .B(N3)  ,C0(N3) ,A0*(N4) .N4.A9*(N4) ,B(N4) ,C0 
(N4 ) 

:  GOTO  3640 

3620  PRINTUSING  3650 ,A0*(N3) ,N3,A9*(N3) ,B(N3) ,C0(N3) .A0*(N4) -N4.A9*(N4> ,B(N4> ,C0 

<N4  ) 

:  GOTO  3640 

3630  IF  N3>22  THEN  3635 

:  PRINTUSING  3670 , AO*  <N3 )  ,N3,A9*<N3) .B(N3) ,C0(N3) ,A0*<N4) .N5.A9*<N4) ,B(NS) ,C0 

<N5  ) 

:  GOTO  3640 

3635  PRINTUSING  3680 ,A0* <N3 ) ,N3 ,A9* (N3 ) .B (N3 ) ,C0 (N3 ) 

3640  NEXT  N3 

3650  %########  ##.  ******  -*,***,***  HOURS-#.###.###  HOURS  !  ********  •#  ****** 

-*###, ### , ### . ## -*### , ### , ### . ## 

3660  %########  ##.  ######  -*###,##*.###.##-*###.###.###.##  !  ####**##  **.  ****** 

-*#*# ,### ,### .##-*#*# ,### ,###.*# 

3670  %########  ##.  ######  -*###,###.###.##-*###.###.#♦#.##  !  ######*#  *#.  »— ## 
-###  ,  ### , ### , ### -### , ### , ♦## . ### 

3680  %########  ##.  ####♦*  -*###,###.###.##-*###.###,###.##  \ 

3720  R ( 2 , 1 ) =14 ( 1 ) ♦ 14 ( 8 ) 

:  R<2,2)=14<2)+14(9) 

:  R 1 1 , 1 ) =B ( 1 >  +B  <  8  > 

:  R  ( 1  ,2 )  =B  <2 )  +B  <  9  ) 
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3730  R  (2 ,3  >=14(31+14  (  1 0  )  +  14 ' 15  ) -14  (17  )  1 1*  ( £1  )  +14  ( S3  )  +14  <  35  )  +14  ( 31  >  + 1 4  ;  3C  .  14  ;  3c.  - 

:  Rll ,3>=B(3 )+B< 10 )+B( 15)+B< 17) +  8 (21 i -B < 33 ) +B < 55 ) +B !31 )+B(30 1+B136  > 

3750  R(2,4)=I4(4)+I4(11  1  +  1406) 

:  R ( 1 , 4 ) =B ( 4 ) +B (11 ) +B  <  £6 ) 

3760  R(2,S)=I4(5)+14(12) +14 ( 27 ) 

:  Rll ,5) =B <  5 ) +B ( 12 ) +B (27 ) 

3770  R12,6)=I4<6>+14(13>+14<28) 

:  R<1 ,6>=B(6)+B<13)+B(28) 

3780  R 12 ,7  >=14 <7 > +14 ( 14 > +  14 ( 16 > +  14 ( 18  > +14 (22 > +14 (24 ) +14 <29 > +14 < 32 > +14 ( 33  >  J6 . i 9  > 
+  14 (20) +14 (34) +  14 (35) +14 (37) +  14 (3a  >*14(40) 

:  R( 1 ,7  >=B(7 )+B ( 14 )+B( 16)+B( 18 ) +B (22V+B (24  >+B(£9)+B (32 )+B (33)+B( 13  ) +B !2C ) +  B 13 
4  )  +B ( 35  )  +B ( 37 ) +B ( 36 ) +B ( 40 ) 

3790  R (2 ,B ) =14 (39 ) +14 (41 ) 

:  R ( 1 , 8 ) =B ( 39 ) +B ( 41 ) 

3800  R12 ,9 ) =14 (4  >  +  I4( 11 )  + 14 (26) +  14 (5 >+14 ; 12  > +14 (27 ) +14 ( 6 ) +14 (13) +14(28 ) +14 :7 ; +14 
(14  > +  14  <  16) +  14  <  18  > +  14  <  19  >+14(20  ! +  14  122  ) +14(24  ) +14  (29) +  14  (32  ) +14  133  )*  .'4  ;  37  ,+ 
14(381+14(40 ) 

3805  R< 1 ,9)=B(4 )+B( 11 ) +B (26 ) +B ( 5 )+B ( 12 ) *B (£7 ) +B ( 6 ) +B ( 13)+B<28 )+B(7)+B(14 i  BUS  )  + 
B(18)+B(19) +B (20 )+B (22 ) +B (24 ) (29 ) +B (32 ) +B (33 ) +B (37 )+B(3B)+B(40) 

3807  R ( 1 , 1 0 ) =B ( 34 ) +B  <  35 ) 

:  R (2 , 10 >=I4 (34  )  +  I4 (35) 

3810  MAT  SEARCHK* ( ) , =STR (Bl$ ,3,5 )TO  KltllSTEP  5 
3820  IF  Kl*(l  )  <>HEX< 0000 ) THEN  3840 
3830  STOP  "UIC  NOT  FOUND  IN  UICLIST" 

3840  A=INT(VAL(K1*<1) ,2)/S)+l 
3850  FOR  U)  =  1T0  10 

:  A2  ( U)  ,  A  )  =  A2  (UI,A)+R(2,UI> 

:  NEXT  UJ 

3880  SELECT  PRINT  005(80) 

:  PRINT  HEX (03) 

:  IF  A5*="N"  THEN  4050 
3890  SELECT  PRINT  <P0*>(130) 

3900  PRINT  HEX ( OAOE ) 

I  PRINT  "  *****  SUMMARY  OF  COSTS  BY  CATEGORY  **<**" 

3910  PRINT  HEX(OA) 

:  PRINTUSING  3935 
:  PRINTUSING  3936 

3915  PRINTUSING  3940 ,R ( 1 , 1 )  ,R < 1 , 1 ) +R <2  ,  *  ,R<2,1) 

:  PRINTUSING  3950 ,R (1 ,2)  ,R( 1  ,2 ) +R (2  .2  )  ,R <2  .2 ) 

:  PRINTUSING  3960 ,R(1 ,3) ,  R  <  1 ,3)+R<2.3) , R (2 .3 ) 

:  PRINTUSING  3970 ,R< 1 ,4 )  ,R ( 1  ,4 ) +R(2  .4  )  ,R(2  ,4  ) 

3920  PRINTUSING  3980 . R ( 1 , 5 ) , R ( 1 , 5 ) +R ( E . 5 ; . R (2 . 5 ) 

:  PRINTUSING  3990 .R(l ,6) ,R(1  ,6 ) +R<2 .6)  .R<2 .6) 

:  PRINT-SING  4000 ,R(1 .7) ,R( 1 ,7)+R<2.7; ,R(2.7) 

:  PRINTUSING  4005, R(1 ,8) ,R(1 ,8>+R(2.8)  .R(2.8) 

:  PRINTUSING  4006 

3925  PRINTUSING  4060 ,R( 1 ,3 > +R ( 1 ,4  >  +R ( 1  .5  ) +R ( 1  .6  ) +R ( 1  .7  )+R (1  .B )  . R < 1 .3  ) +R < 1  .  4  )  +R ( 1 
,5)+R(l,6)+R(l,7;+R(l,8)+R(2,3)+Ri2.4)+R(£.5)+R<2.6)+R(2.7>+R(2,8),P:2,3I+R 
12,4)+R(2,5)+R(2,6)+R(2,7)+R(2,8) 

:  PRINT  HEX ( OA ) 

:  PRINTUSING  4007 
:  PRINTUSING  4008 

3930  PRINTUSING  4010,R(1,3)+R(1,8).R(13;+R(2.3>+R(1.8'+R(2.8),R(2.3)+R(2.5> 

:  PRINTUSING  4020 ,R(1 ,9) ,R(1 ,9)+R(2.9i . R (2 , 9 ) 

:  PRINTUSING  4030  ,R(1 ,10)  ,R(1  ,10  )+R(2  .il)  )  .RI2.10  ) 

3931  PRINTUSING  4006 

:  PRINTUSING  4060  ,R(1,3)+R(1,8)+R(1.9)+B(34)+B(35).R(1.3)+R(2.3)+R(1,8:.R(2,B 
>  +P( 1 ,9)+R(2 ,9)+C0 (34)+C0 (35)  .R (2 .3 )  +  R (2 . 8 ) +R (2 . 9 ) +14 (34 )  +  14 (35  > 

•936  ((RESOURCE  TYPE  CURREN-  COSTS  REVISED  C0S~3 
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395b  %== 


CHANGE 


3940  %MIL  HOURS  -#,###.###.### 

4# ,### ,###,### 

3950  %CIV  HOURS  -#,###.###.### 

+*  ,###,###,### 

3960  %MIL  LABOR  COSTS  -*#,###.###.###.## 

4$# , *#* , ### , ### . #* 

3970  XCIV  LABOR  COSTS  -*#,###.###.###.## 

4*# , #** , ### , ### . ## 

3980  %SUPPLIES  -*#,###.###.###.## 

4$* , ### , ##* , *## . ## 

3990  ^CONTRACT 

4*# , ### , ### , ### . ## 

4000  %MISC  -*#,###.###,###.## 

4*# , ##* , ### , ### . ## 

4005  ^STUDENT  P&L  -*#,###.###.###.## 

4*# , *#* , ### , ### . ** 

400b  % - * - 


-#.###.##*  ,*M 


-*#  .***  .###  ,**«  .#• 
-*# .«** .*** ,**« .«* 
-**  .###  .*«*  ,#*#  .*# 
-*#  .***  .##•  ,***  .## 
-*#  .###  ,***  .## 


4007  XFUNDING 
4006  %======= 

4010  %MPN  -**,**#.#**.###.##  -*#.###.##*,###.## 

4*# , ##* , ### , ### . ## 

4030  %0&MN  -*#,#*#.###.###.##  -*#,*##.*##,*##.## 

4  * # , ##* , ### , ### . ## 

4030  %OTHER  -**,#*#.###.###.##  -**.***.«**,•*•.*« 

4*# , *## , ### , ### . ** 

4040  PRINT  HEX ( OA ) 

4050  IF  X*<> "PASSWORD "THEN  4055 

:  INPUT  "WOULD  YOU  LIKE  TO  SAVE  THESE  REVISED  COSTS  IN  THE  DATA  BASE  ?" ,A9* 
:  IF  A9*<  > "V"  AND  A9*<  > "N"  THEN  4050 
:  IF  A9*<>“Y"  THEN  4055 
:  GOSUB  '100 
4055  RETURN 


4060  %TOTALS  -**,###.###,###.##  -ft*.#*#.*#*,***.#* 

4*# ,### ,### ,### .## 

4160  GOSUB  '839(2) 

:  IF  Q*<>"  "  THEN  4165 
:  GOSUB  '830(2,5,6,8.0*) 

:  IF  Q*="  "  THEN  4167 

4165  PRINT  "ERROR  IN  OPENING  PERCAP  FILE:  TRY  ANOTHER  RUN..." 

:  FOR  H=1  TO  10000 
:  NEXT  H 
:  GOSUB  '  15 
4167  RETURN 

4170  PRINT  "THAT  CDP  IS  NOT  IN  COURSE  FILE.  PLEASE  CHECK  IT  AND  RE-ENTER" 

:  FOR  H=1  TO  10000 
:  NEXT  H 

;  LOAD  DC  T#0 , "ECON"0 ,7999  BEG  840 

4180  GOSUB  '839(8) 

:  IP  Q*<>"  “  THEN  4105 
:  GOSUB  '  830(8,5,6,1 ,U*> 

:  IF  Q*="  "  THEN  4187 

4185  PRINT  "ERROR  IN  OPENING  PERCAP  FILE:  TRY  ANOTHER  RUN..." 

:  FOR  H=1  TO  10000 
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:  NEXT  H 
:  GOSUB  '  15 
4187  RETURN 

4190  PRINT  "IMPROPER  CALL  TO  KFAM  FINDOLD:  TRY  ANOTHER  RUM..." 

:  FOR  H=1  TO  10000 
;  NEXT  H 
:  GOSUB  '15 

4S00  PRINT  "IMPROPER  CALL  TO  KFAM  FINDNEXT:  TRY  ANOTHER  RUN..." 

:  FOR  H= 1  TO  10000 
:  NEXT  H 
:  GOSUB  '  15 

4280  PRINT  "IMPROPER  CALL  TO  KFAM  FINDFIRST :  TRV  ANOTHER  RUN..." 

:  FOR  H=1  TO  10000 
:  NEXT  H 
:  GOSUB  '  15 
4240  DEFFN ' 40 
4250  PRINT  HEX (03) 

:  PRINT  "  ***  DIAGNOSTICS  ***" 

:  PRINT 

:  PRINT  "AVAILABLE  DATA  AT  THIS  POINT" 

:  PRINT 

:  PRINT  "CURRENT  WORK  UNITS  ";B<60) 

4260  PRINTUSING  "AVERAGE  MILITARY  PAY  *###.###.##  ".Rl 

:  PRINTUSING  "AVERAGE  CIVILIAN  PAY  »*## .###.##". R2 

:  RETURN 

4270  DEFFN '25 

:  GOSUB  '  230  <2,5,G,1,U*) 

4280  GOSUB  '235(2) 

:  IF  Q*<>"  "THEN  4220 
:  GOTO  4290 

4285  GOSUB  '237(2) 

:  IF  Q*= "E "THEN  5000 
IF  Q*<>"  "THEN  4200 
4290  DATA  LOAD  DC  #6 ,B1* ,B2* ,B* ( ) 

:  GOSUB  '  35 

4300  A1 < 1 , A ) =A1 < 1 , A ) +B ( 1  )  *B ( 8 ) 

:  A1 (2 , A ) =A1 (2 , A ) +B (2 ) +B ( 9 ) 

:  A1  ( 3  ,  A  )  =A  1  (3,A)+B(3)+B(  10  )+B(  15)+B  :  A7)+B  (21  )+B  (23)+B(25)+B(31  )<-B(3C  .  B(36i 
:  A1  (4  ,  A  )  =A1  (4  .  A  )  +B  (4  )  +B  (11  )  +B  (  26  ) 

:  A1 ( 5 , A ) =A 1 <5,A)+B(5)+B(12) +B ( 27 ) 

:  A1 ( 6 , A ) =A1 ( 6 , A ) +B ( G ) +B  ( 13 ) +B ( 28  ) 

4310  A1  <7,A)=A1  (7,A)+B(7)+B(14)+B<  16  > +B  :  18  > +B  ( 22  ) +B  (24  ) +B  <29  > +B  <32  > +B  < 33 B(195  + 
B ( 20 ) ♦ B ( 34 ) +B ( 35 )  +B  ( 37 )  +B  ( 38 ) +B(40 ) 

:  A1(8,A)=A1(B,A)+B< 39 ) +B  <  41 ) 

:  A1 ( 1 0  ,A ) =A1 ( 10 , A ) +B (34 ) +B  <  35 ) 

4320  A1  ( 9  .  A  )  =A1  ( 9  ,  A  )  +B  ( 4  )  +B  ( 1 1  )  +B  ( 26  )  +8  '  S  i  +B  ( 12  )  +B  (27  H  B  ( 6  )  +B  <  13 )  +B  (28  )  -i  B  :  7  )  +B  ( 1 
4 )+B( 16 )+B( 18 )+B< 19)+B(20 )+B (22 )+B (24 )+B (29 ) +B (32 ) +B (33 ) +B (37 ) +B (38 ) - B (40 ) 
4400  O ( 1 . 1 ) =0 ( 1 , 1 ) +B  < 1 ) +B ( 8 ) 

:  0(1 ,2)=0(1 ,2)+B(2)+B(9) 

:  0(1  .3)  =0(1  ,3)+B(3)+B<10)+B(15)+B<17wb<21  ) +B  (23  ) +B  <25  ) +B  < 31  ) +B  <  30  ) +3  : 35  ) 

:  0(1  ,4>*0(1 ,4)+B(4)+B(ll )+B(26  ) 

:  0< 1  .5>=0< 1  ,5 >+B(5)+B< 12 >+B(27 ) 

:  0(1 ,6)=0(1 ,6>+B(6)+B<13)+B<2B  ) 

4410  0(1 ,7) =0(1 ,7)+B(7)+B(14)+B(16)+B(18; +B ( 22 > +B (24 ) +B <29 ) +B ( 32 ) +3 ( 33 ) +B  :  1 9 ) +B ( 
20 ) +B ( 34  )  +B ( 35 ) +B ( 37  >+B(3B)+B(40> 

:  0(1 , 8 ) =0 ( 1 ,8 )+B (39 )+B ( 41 ) 

:  0(1 ,10)-0(1 ,10)+B(34)+B(35) 
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4480  Q( 1 ,9)  -04 1 ,9)+B(4)+B(ll  >+B(B6  >+B (5  > +B( 18 >+B <27  > +B(6 > »B< 13  >+B <88  )+B<7  )+B<  14  ) 
♦BU6)*B(lB)*B(19)*B(a0>»B(ee>+B(a4)+B(29)+B(3a)+B(33)*B<37)+B(38)*B(40) 
♦999  GOTO  48B5 

5000  RETURN 

5010  DEFFN'100 

:  REM  RACK  AND  SAVE  REVISED  COSTS 
5080  CO  144 > -CO (44)/. 7 
:  Jl-1 

I  FOR  M-l  TO  4 
:  FOR  E-l  TO  71  STEP  5 
:  IF  C0(J1)<0  THEN  C0(J1)«0 
5030  PACK  (+4MMMMMHMM4)  STR<B*<M)  ,E  .5)  FROM  CO(Jl) 

:  NEXT  E 
:  NEXT  M 

5040  DBACKSPACE  *6,1 

:  DATA  SAVE  DC  *6 ,B1* ,B8* ,B* ( ) 

5050  RETURN 

5060  DEFFN  15 

:  GOSUB  '839(1) 

!  GOSUB  '  839(8) 

;  RETURN  CLEAR  ALL 

:  COM  CLEAR 

:  LOAD  DC  T*0,“COSTMENU-0,9999  BEG  100 

5070  DEFFN  '  90 

!  SELECT  PRINT  <P0*>(138) 

:  IF  C5-0  THEN  PRINT  HEX(OCOE) 

!  PRINT  “  FIXED  AND  VARIABLE  COST  OVERVIEW  " 


5075 

PRINT  HEX ( OAOA ) 

PRINT  “  SOURCE 

FIXED 

FIXED 

VARIABLE" 

VARIABLE  ! 

SOURCE 

5078 

PRINT  “ 
SELECT  PRINT 
RETURN 

005(80) 

!  M 

5080  DEFFN  '  95 

:  SELECT  PRINT  <P0*X138> 

:  FOR  N3-1  TO  84 
!  N4-N3+84 
:  N5-N4 

:  IF  N4-46  THEN  N5-60 
:  IF  N3<3  OR  N3-8  OR  N3-9  THEN  5090 
:  IF  N3>17  THEN  5095 

5085  PRINTUSING  3660  ,A0*(N3>  ,N3,A9*<N3)  ,F1  (N3  )  ,  V(N3 )  ,A0*(N4)  OI4.A9*<N4)  ,Fi  (144)  ,V 
(N4  ) 

.'  GOTO  5100 

5090  PRINTUSING  3650 ,A0*(N3 ) ,N3 ,A9*(N3>  FI (N3 ) .V (N3 )  .AO* (N4 ) ,N4 .A9*(N4 ) ,F1  044) ,V 
<N4> 

:  GOTO  5100 

5095  IF  N3>88  THEN  5097 

'.  PRINTUSING  3670,A0*(N3)  ,N3.A9*(N3)  FI  043)  .V(N3)  ,A0*(N4)  ,N5.A9*(N4)  ,F1  (N5)  ,V 
(N5) 

:  GOTO  5100 

5097  PRINTUSING  3680 ,A0* (N3 ) ,N3 , A9* <N3 ) .FI  043 ) . V (N3 ) 

5100  NEXT  N3 

:  PRINTUSING  5110, FI (46) ,V(46) 

:  PRINT  HEX(OC) 

:  SELECT  PRINT  005(80) 

:  RETURN 

5110  % 

-•#*#,*** ,*** .#*-•##• ,*#*,***.** 
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*  - 

**■  -M- 

COMP  - 

EE  CM  ■* 

-*  -M- 

<  i 

= / 1 O / QO > 

A 

- 

3840 

3B50 

4300 

4310 

4320 

A* 

- 

0070 

A*  l 

- 

0160 

0280 

0300 

0340 

0400 

0420 

2720 

2730 

2740 

2750 

2760 

2770 

2790 

AO 

0800 

0810 

1290 

1300 

1840 

1850 

2360 

2365 

2370 

AO* 

- 

0150 

0470 

0480 

AO*  l 

- 

0150 

0184 

0185 

0186 

0187 

3615 

3620 

3630 

3635 

5085 

5090 

5095 

5097 

A1 

- 

0760 

Al* 

- 

0160 

0453 

0455 

0530 

1130 

1660 

2190 

2460 

2470 

2570 

3390 

3400 

3410 

A1  i 

- 

0170 

2500 

2505 

2506 

2510 

2515 

4300 

4310 

4320 

AS 

- 

S4S0 

3490 

AS* 

- 

07B0 

1270 

1820 

2340 

AS  l 

- 

0170 

0180 

2490 

2500 

2505 

2506 

2510 

2515 

2541 

3850 

A3* 

- 

2970 

3050 

A4* 

- 

0530 

1130 

1660 

2190 

AS* 

- 

0830 

0850 

0860 

1320 

1340 

13S0 

1870 

1890 

1900 

2390 

2410 

2420 

3540 

3880 

AS* 

- 

0160 

2550 

2560 

A7* 

- 

0665 

0823 

A6* 

- 

0890 

0990 

1015 

1380 

1500 

1525 

1930 

2030 

2055 

2450 

A9* 

- 

4050 

A9*  l 

- 

0150 

0184 

0188 

3615 

3620 

3630 

3635 

5085 

5090 

5095 

5097 

El 

- 

0160 

0443 

0444 

0446 

0447 

0448 

0449 

0450 

0453 

0455 

0461 

0500 

0515 

0520 

0545 

0560 

0578 

0579 

0630 

0640 

0700 

0710 

0720 

0730 

0780 

0790 

0800 

0821 

1145 

1150 

1168 

1169 

1220 

1230 

1240 

1270 

1280 

1290 

1310 

1315 

1675 

1680 

1698 

1699 

1760 

1770 

1790 

1820 

1830 

1840 

1860 

1865 

2205 

2210 

2228 

2229 

2290 

2300 

2310 

2340 

2350 

2365 

2385 

2B50 

2B70 

2910 

2911 

2970 

3050 

3120 

3140 

3160 

3180 

3230 

3270 

3300 

3360 

3460 

3510 

3615 

3620 

3630 

3635 

3720 

3730 

3750 

3760 

3770 

3780 

3790 

3805 

3807 

3931 

4250 

4300 

4310 

4320 

4400 

4410 

4420 

B*  l 

- 

0160 

0370 

1100 

1630 

2160 

2850 

4290 

5030 

5040 

Bl 

- 

2970 

2990 

3000 

Bl* 

- 

0160 

0370 

0520 

0825 

0841 

1100 

1125 

1331 

1630 

1640 

165S 

1881 

2160 

ru 

H 

o 

2185 

2401 

3810 

4290 

5040 

BS 

- 

0446 

0447 

0450 

3050 

3060 

3070 

3080 

BS* 

- 

0160 

0370 

1100 

1125 

1331 

1630 

2160 

4290 

5040 

B9* 

- 

0070 

C 

- 

0390 

0400 

2790 

Cl 

- 

0050 

0950 

1330 

1331 

1440 

1880 

1881 

1970 

2400 

2401 

CO  l 

- 

0160 

0640 

0750 

0760 

0820 

0821 

0895 

1169 

1240 

1310 

1315 

1385 

1699 

1790 

1860 

1865 

1935 

2229 

2310 

2380 

2385 

2455 

2965 

2970 

2990 

3000 

3010 

3035 

3050 

3070 

3080 

3090 

3115 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3230 

3270 

3300 

3310 

3320 

3370 

3470 

3490 

3510 

3615 

3620 

3630 

3635 

3931 

5020 

5030 

Cl 

- 

0700 

0710 

0720 

0730 

CE* 

0160 

C3* 

- 

0160 

C4* 

- 

0160 

C5 

* 

0570 

5070 

C5* 

~ 

0570 

0821 

1160 

1315 

1690 

1865 

2220 

2385 

D* 

- 

0160 

B*  ( 

- 

0060 

1410 

1470 

1655 

1881 

1900 

i  990 

2185 

2401 

DO*  i 

0060 

1950 

2000 

2185 

2401 

S420 

Bl 

- 

0430 

2920 

3025 

Dl*  ( 

- 

0060 

0520 

0825 

0841 

1390 

1640 

1940 

2170 

DE*( 

- 

0060 

0520 

0825 

0841 

1940 

2170 

D3 

3230 

3270 

E 

- 

0290 

0330 

2840 

2850 

2860 

5020 

5030 

ES 

- 

0710 

2740 

F 

- 

0447 
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F  ( 

- 

0150 

0210 

0571 

0572 

0574 

0580 

0600 

0620 

1161 

1162 

1164 

1691 

1692 

1694 

2221 

2222 

2224 

FC 

- 

0640 

1230 

1240 

1770 

1790 

2300 

2310 

FI 

- 

0630 

0640 

0750 

0760 

1220 

1230 

1760 

1770 

2290 

2300 

FI  ( 

- 

0170 

0570 

0578 

0630 

0821 

1160 

1168 

1220 

1315 

1690 

1698 

1760 

1865 

2220 

2228 

2290 

2385 

5085 

5090 

5095 

5097 

5100 

F2 

- 

0700 

0710 

0720 

2720 

F2  ( 

- 

0150 

1030 

1170 

1190 

1210 

F3< 

- 

0150 

1535 

1710 

1730 

1750 

F4< 

- 

0150 

2070 

2240 

2260 

2280 

G( 

- 

0060 

0930 

0950 

1040 

1400 

1430 

1440 

1540 

1950 

1960 

1970 

2080 

G*( 

- 

0060 

0910 

0920 

0930 

1400 

1410 

*430 

1950 

1960 

Gi 

- 

0455 

H 

- 

0180 

0490 

2541 

4165 

4170 

4185 

4190 

4200 

4220 

I 

- 

0230 

0240 

0300 

0520 

0825 

0841 

0895 

0950 

0960 

0  970 

0980 

1040 

1050 

1125 

1160 

1230 

1280 

1331 

1350 

1385 

*440 

1450 

1470 

1480 

1490 

1540 

1550 

1 655 

1690 

1881 

1900 

1935 

1970 

1980 

1990 

2000 

2010 

2020 

2080 

2085 

2185 

2220 

2401 

2420 

2455 

11 

- 

0443 

2920 

3230 

12 

- 

0444 

3025 

3270 

13 

- 

0520 

1160 

1169 

1290 

1310 

1315 

1690 

1699 

1770 

1330 

1840 

1860 

1865 

2220 

2229 

2300 

2350 

2365 

2385 

14  ( 

- 

0160 

3510 

3720 

3730 

3750 

3760 

3770 

3780 

3790 

3800 

3807 

3931 

J 

- 

0430 

0445 

2490 

J1 

- 

2830 

2850 

2860 

5020 

5030 

K 

- 

0950 

1040 

1440 

1540 

1610 

1640 

1970 

2080 

2140 

2170 

K*  ( 

- 

0160 

0200 

2495 

3810 

Kl*< 

- 

0160 

3810 

3820 

3840 

L 

- 

0570 

0571 

0572 

0574 

0578 

0579 

0580 

0600 

0620 

0630 

0640 

0650 

0670 

0680 

0690 

0730 

0740 

0750 

0760 

0780 

0790 

0820 

0821 

1160 

1161 

1162 

1164 

1 1 63 

1169 

1170 

1190 

1210 

1220 

1240 

1270 

1280 

1310 

1315 

1390 

1690 

1691 

1692 

1694 

1698 

1699 

1710 

1730 

1750 

.760 

1790 

1820 

1830 

1860 

1865 

1940 

2220 

2221 

2222 

2224 

2228 

2229 

2240 

2260 

2280 

2290 

2310 

2340 

2350 

2380 

2365 

3340 

3342 

3345 

3360 

3370 

3510 

3520 

LI  ( 

- 

0150 

0210 

0780 

0790 

La< 

- 

0150 

1030 

1270 

1280 

L31 

- 

0150 

1535 

1820 

1830 

L4( 

- 

0150 

2070 

2340 

2350 

M 

- 

0443 

0444 

0730 

0805 

0860 

0900 

0950 

0970 

1295 

1350 

1440 

1480 

1845 

1900 

1970 

2010 

2367 

2390 

2840 

2850 

2860 

2950 

3020 

3030 

3100 

3200 

3240 

3250 

3280 

3300 

3310 

3320 

3330 

5020 

5030 

N 

- 

0540 

0542 

0545 

0560 

1140 

1142 

1145 

1150 

1670 

1672 

1675 

1680 

2200 

2202 

2205 

2210 

N*< 

- 

0150 

NO 

- 

0060 

N1 

- 

0050 

0060 

0230 

0930 

0950 

0960 

1040 

1390 

1430 

1440 

1450 

1540 

1940 

I960 

1970 

1980 

2080 

NS* 

- 

0160 

0240 

0260 

0400 

0446 

0825 

0841 

0860 

N3 

- 

3610 

3615 

3620 
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ECON 


VARIABLE  DEFINITIONS 


A$  =  Device  address  of  data  base  files 

A3$  =  * Y *  or  1 N 1  answer  for  use  of  partial  billets 

A4$  =  * Y 1  or  1 N '  for  allowing  changes  in  original  data 

A5$  =  ' Y '  or  ' N '  for  printed  copies  of  original,  revised  and 

summary  costs 

A8$  =  Flag  for  choosing  to  input  average  annual  pay 
A9$  =  1 Y 1  or  1 N '  for  saving  revised  cost  estimates 

B0$  =  'R'  or  '0'  for  replacing  or  omitting  an  invalid  CDP 

D  =  Numeric  fiscal  year  of  data  base  (YY) 

D1  =  Number  of  months  between  data  base  creation  and  date  to  begin 
implementing  changes 

D2  =  Numeric  year  of  implementation  (YY) 

D2$  =  Alpha  date  of  implementation  (MM/YY) 

D3  =  Number  of  months  after  implementation  ends  before  cost  estimates 
become  effective 

D4  =  Numeric  month  of  implementation  (MM) 

11  =  Inflation  rate  for  MPN 

12  =  Inflation  rate  for  O&MN 

N2$  =  Course  data  processing  number  (CDP) 

N1  =  Number  of  courses  to  be  run  concurrently 

PI  =  Planning  period  in  months 

R1  =  Average  military  pay 

R2  =  Average  civilian  pay 


COMP.  ECON 


A  =  Ordinal  position  of  UIC  in  UICLIST 

A$()  =  Stored  data  from  CRSF101  file  (NITRAS  origin) 

AO  =  Percentage  change  in  linear  regression  estimates  of  average 
total  costs 

A0$  =  Flag  for  specifying  enrollments  or  inputs 
A0$()  =  Print  headings  for  percap  cells 
A1  =  Average  cost,  adjusted  for  capacity 

Al()  =  Sums  of  original  costs  by  category  for  each  affected  activity 

A2()  =  Sums  of  cost  change  by  category  for  each  affected  activity 

A6$  =  Flag  for  printouts  of  activity  summaries 

B$()  =  Packed  per  capita  cost  data 

B1  =  Revised  number  of  military  billets 

Bl$  =  Per  capita  descriptive  data 
B2  =  Revised  number  of  civilian  billets 
B2$  =  Alphanumeric  per  capita  information 
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C  =  Course  number  within  an  RMS  group 

C()  =  Number  of  courses  affected  in  an  activity,  department  or 

division 

C0()  =  Revised  cost  estimates 

Cl  =  Course  capacity  in  training  days 


D$() 

= 

Department  codes  in  sorted  order 

D0$ 

= 

Division  codes  in  sorted  order 

Dl$() 

= 

Department  codes  in  inpu*  order 

D2$( ) 

— 

Division  codes  in  input  order 

E2 

= 

Equipment  input  capacity 

F(),F2() 
F3( ) ,F4( ) 

Fixed  and  variable  endpoints  at  each 

of  the  four  level 

FO 

= 

Average  fixed  cost  for  one  cell 

FI 

= 

Total  fixed  cost  for  one  cell 

F2 

= 

Course  frequency  per  year 

GO 

= 

Numeric  subscripts  for  input  order 

G$( ) 

= 

Hexidecimal  digits  for  input  order 

G1 

— 

Training  days  computed  from  current 

level  data 

I 

= 

Counter  for  major  loop 

13 

= 

Incremental  work  units  from  current 

to  revised  leve' 

I4() 

= 

Cost  changes  for  each  cell 

K  =  Subscript  for  input  position 

K$( )  =  List  of  UICs  in  per  capita  data  base 

Kl$( )  =  Hex  position  of  UICs  in  UICLIST 


L 

LK) 

L2( )  ,L3( )_ 
L4() 


Minor  loop  counter 

Regression  coefficients  at  course  level 

Regression  coefficients  at  activity,  department  and 
division  level 


0()  =  Overall  cost  totals  by  category 


P 

PO 

P2 

P3 


Proportion  of  costs  which  are  fixed 
Months  of  planning  exceeding  fixed  point 
Personnel  input  capacity 
Months  between  fixed  and  variable  endpoints 


R()  =  Cost  sums  for  each  record  by  category 

R3$()RR4$()  =  Codes  for  re1ated  input  capacity  at  the  four  levels 
Rl$  =  RMS  cost  code 

R3  =  Revised  level  work  units  for  a  record 


Sl() 
S2( ) 
S2 


Sum  of  current  work  units  affected  in  an  activity, 
department  or  division 

Sum  of  revised  work  units  for  affected  records  in  an 
activity,  department  or  division 
Space  input  capacity 
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u$ 

=  File  name  for  a  per  capita  activity  file 

U$() 

=  Storage  array  for  affected  UICs 

in 

sorted  order 

Ul$ 

=  Unit  Identification  Code  (UIC) 

ui$() 

=  Storage  array  for  affected  UICs 

in 

input  order 

V 

= 

Total  variable  cost  for  one  cell 

VO 

= 

Average  variable  cost  for  one  cell 

W() 

= 

Storage  array  for  current  work  units 

wo 

= 

Percentage  change  in  work  units 

W1 

= 

Current  level  computed  work  units 

W2 

= 

Revised  level  computed  work  units 

W3 

= 

Incremental  computed  work  units 

W4 

= 

Percentage  deviation  of  work  units  from 

capacity  levels 

W9 

= 

Work  units  accountable  for  by  fixed 

costs 

x$ 

= 

UIC,  department  and  division  codes 

XI 

= 

Enrollments 

XI  $ 

= 

UIC  and  department  codes 

X2 

= 

Graduates 

X3 

= 

Attrition  rate 

X5 

= 

Setback  rate 

X6 

= 

Proportion  of  course  repeated  for  a 

setback 

X7 

= 

Weeks  of  attrition  per  attrite 

X8 

= 

Change  in  graduates  from  current  to 

revised  levels 

Y 

= 

Current  predicted  average  cost  for  one 

cell 

Y1 

— 

Revised  predicted  average  cost  for  one 

cell 

z$ 

= 

Flag  for  group  membership 
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SAMPLE  OUTPUT 


-“-•**••3*-  casi  model  F»r3:cK3r?AM 

■»•  irvii'“i_n  PAieAMt:  ra<a 

INFLATION  r»ATL  FOR  MPN  -  0^+ 

INFLATION  RAIL  FOR  Q&MN  . OG 

NUMDLR  ar  COURaEG  TO  CL  ALTLI  /C  LJ  1 

I  ’L-TM-H-l  I  P.K..  TIME  <  I  N  MUNI  I  «CJ  >  £. 

PARTIAL  DiL.-l_l~.TCJ  V  V 

ORIGINAL  DATA  Cl  lANGLC;  T*  FJ 

save  rev  x  ar.o  com  lotimatlo  t>  n 
caricrsi  ai  coot  gummarieg  v  v 

DYPAOG  CAPACITY  AD JU'J  I  MLN  I  G  V  Y 

DYPASG  QCALC  ADJUUT  MLN  l  !.J  V  IM 
Pr>’INT  riXCD  AND  VARIACL.L  COOTO  V  T 
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AC-FC-SP 

ADP 

BLD-DEP 
C.  HR 
C.  LB 
CNETS 

CONT 

DIRECT 

EQ-DEP 

FN-CMD 

HOST-ACT 

M.  HR 

MISC 

MJ.  PJT 

M.  LB 

OT-ACT 

STA-DATA 

STF-BMD 

STF-PCS 

STU-BMD 

STU-F.H. 

STU-SAL 

STU-TVL 

SUPP 

TR-EQ-MT 


APPENDIX  C 

DEFINITION  OF  ACRONYMS 

Activity  Facility  Support 

Automatic  Data  Processing 

Building  Depreciation 

Civilian  Labor  Hours 

Civilian  Labor  Costs 

Chief  of  Naval  Education  and 
Training  Support 

Contract  Costs 

Direct  Costs 

Equipment  Depreciation  Costs 

Functional  Command 

Host  Activity  Support 

Military  Labor  Hours 

Miscellaneous  Costs 

Major  Project  Costs 

Military  Labor  Costs 

Other  Activity  Support 

Statistical  Data 

Staff  Bureau  of  Medicine 

Staff  Permanent  Change  of  Station 

Student  Bureau  of  Medicine 

Student  Family  Housinq 

Student  Salary 

Student  Travel 

Supplies 

Training  Equipment  Maintenance 
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DISTRIBUTION  LIST 


Air  Force 


Headquarters,  Air  Training  Command  (XPTD)  (Dr.  Schufletowski ) 
Headquarters,  Air  Training  Command  (XPTIA,  Mr.  Goldman) 

Air  Force  Human  Resources  Laboratory,  Brooks  Air  Force  Base 
Air  Force  Human  Resources  Laboratory  (Library),  Lowry  Air  Force  Base 
Air  Force  Office  of  Scientific  Research/AR  (Dr.  A.  R.  Fregly) 
Headquarters  Tactical  Air  Command  (DOOS)  Langley  Air  Force  Base 
AFMTC/XR  (Capt.  Englebretson)  LackTand  Air  Force  Base 
Headquarters  34  TATG/TTD  (Lt.  Col.  Lee),  Little  Rock  Air  Force  Base 


Commandant,  TRADOC  (Technical  Library) 

ARI  (Dr.  Ralph  R.  Canter,  316C;  Dr.  Edgar  Johnson;  Mr.  James  Baker; 

Dr.  H.  F.  O'Neil,  Jr.;  Dr.  Beatrice  Farr,  PERI-OK) 

ARI  Field  Unit  -  Fort  Leavenworth 


Coast  Guard 


Commandant,  U.S.  Coast  Guard  Headquarters  (G-P-l/62;  G-RT/81) 


Marine  Corps 
CMC  (OT) 

CGMCDEC  (Mr.  Greenup) 

Director,  Marine  Corps  Institute 
CO  MARCORCOMMELECSCOL  (ITS)  (Mr.  D.  E.  Mueller) 


OASN  (R&D)  (Dr.  S.  Koslov)  (MRA&L)  (Dr.  B.  D.  Rostker) 

CNO  (0P-102X,  M.  Malehorn;  0P-987P10,  Dr.  R.  Smith;  OP-987,  Mr.  H.  Stone) 
NAVCOMPT  (NCD-7) 

ONR  (458,  455) 

CNM  (MAT-08T2,  Mr.  A.  L.  Rubinstein) 

CNET  (01,  00A,  N-5  (6  copies)) 

CNAVRES  (02) 

COMNAVSEASYSCOM  (03,  05L1C,  05L1C2) 

COMNAVAIRSYSCOM  (03,  340F) 

CO  NAVMEDRSCHDEVCOM  (C»PT  H.  J.  Connery) 

CNTECHTRA  (016,  Dr.  Kerr  (5  copies)) 

CNATRA  (Library) 

COMTRALANT 

COMTRALANT  (Educational  Advisor) 
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DISTRIBUTION  LIST  (continued) 


Navy  (continued) 

COMTRAPAC  (2  copies) 

CO  NAVPERSRANOCEN  (Library  (4  copies)) 

NAVPERSRANDCEN  Liaison  (01H) 

Superintendent  NAVPGSCOL  (2124) 

Superintendent  Naval  Academy  Annapolis  (Chairman,  Behavioral  Science  Dept.) 
CO  NAVEDTRAPRODEVCEw  (AH3;  EAT,  Dr.  Smith) 

CO  NAVEDTRASUPPCEN  NORVA  (00(2  copies);  Nil  1 1 ,  Joe  Fazio) 

CO  NAVEDTRASUPPCENPAC  (S  copies) 

CO  NAVAEROMEDRSCHLAB  (Chief  Aviation  Psych.  Div.) 

CO  FLT COMD I RS YSTRACENPAC 
CO  NAMTRAGRU 

CISO,  NTTC  Corry  Station 

CO  NAVTRAEQUIPCEN  (N-424  (2  copies),  N-211,  N-001 ,  N-002) 

Center  for  Naval  Analyses  (2  copies) 

U.S.  Naval  Institute  (CDR  Bowler) 

OIC  NODAC  (2) 

CO  TRITRAFAC  (2  copies) 

CO  NAVSUBTRACENPAC  (2  copies) 

CO  FLEASWTRACENPAC 
CO  FLETRACEN  SDIEGO 
CISO,  SSC  (Dr.  Flesch) 

Executive  Director  NAVINSTPRODEVDET 

CO  NAVTECHTRACEN  Corry  Station  (Cryptologic  Trainino  Department) 

NETSCPAC  Field  Office  Mare  Island 

Supply  Schools  Training  Officer  (Code  730),  Meridian 

Office  of  Civilian  Personnel,  Southern  Field  Division  (Jim  Herndon) 

VT-10  (Education  Specialist) 

CO  NAVSUBSCOL  NLON  (Code  0110) 

Other  POD 


Military  Assistant  for  Human  Resources,  OUSDR&E,  Room  3D129,  Pentagon 
(CDR  Paul  Chateller) 

OASD  (MRA&L)  (LT  COL  Grossel ) 

Program  Manager,  Office  of  Cybernetics  Technology,  Defense  Advanced  Research 
Projects  Agency  (Dr.  0.  Dexter  Fletcher) 

Institute  for  Defense  Analyses  (Dr.  Jesse  Orlansky) 

COM  National  Cryptologic  School  (Code  E-2) 

Information  Exchanges 

DDC  (12  copies) 

DLSIE  (Mr.  James  Dowling) 

Executive  Editor,  Psychological  Abstracts,  American  Psychological  Association 
ERIC  Processing  and  Reference  Facility,  Bethesda,  MD  (2  copies) 
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